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Die durchsichtige 
Datasette 


Sie werden staunen! Die Da- 
tasette, beliebteste und billig- 
‚ste Speichereinheit für Com- 
modore-Heimcomputer, muß- 
te in der ’Compute mit’ Redak- 
tion einiges durchstehen. Wir 
haben für unsere Leser den 
“ Kassettenrecorder, der doch 
keiner ist, in die Mangel ge- 
nommen. Es soll vor allem 
Aufbau und Funktion der Da- 
tasette erklärt werden, alt- 
bekanntes und nie geahntes 
erwartet Sie auf Seite 26! 
In einer mehrteiligen Serie 


führen wir Sie durch das Spei- " 


chermedium Kassette, der 
Teil I beschäftigt sich mit 
.der Hardware. 


Testbericht: 
BROTHER EP-44 


Die Einführung elektronischer 
Schreibgeräte hat es mit sich 
gebracht, die Begriffe ”Schreib- 
maschine” und ”Drucker” 
nicht mehr hundertprozentig 
kennen zu müssen. 


Eine Schreibmaschine kann 
sehrwohl als Terminal für den 
Computer genutzt werden — 
umgekehrt ist es nicht einzu- 
sehen, weshalb ein Drucker 
lediglich als Ausgabe-Einheit 
eines Rechners dienen soll. 
Der heute vorgestellte Brother 
EP-44 ist ein Paradebeispiel 
für das handliche Allzweck- 
gerät der Zukunft. 


ist ein wünderschönes Ad- 
venture wie aus dem Bilder- 
buch. Basierend auf den Grund- 
regeln der Rollenspiele vom 
Typ "Dungeons and Dragons” 
erleben Sie hier ein märchen- 
haftes Abenteuer, das Sie in 


der Rolle des edlen Helden 


durch viele Schrecken hin- 
durch bis in die Arme einer 
verführischen Prinzessin lei- 
tet, die Sie freilich erst aus 
den Klauen des bösen Minax 
befreien müssen. Können Sie 
sich als Ritter ohne Furcht 
und Adel dieser ehrenvollen 
Aufgabe entziehen? Dann le- 
sen Sie auf Seite 53 alles über 
Ultima Il und entscheiden Sie, 
ob dieses Adventure für Sie in 
Frage käme... 


' Drei echte Programm-Knüller für Ihren 
Commodore-Gomputer von insgesamt 9 in 
diesem Heft. 


or 
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Ihr Vierundsechziger wird in dieser Woche meinen, es sei Weih- 
nachten: 'Compute mit’ hat wirklich eine schöne Bescherung für 
Ihren Rechner parat! 

Da ist zunächst eine gute Portion Horror, die Ihnen durch ”The 
Fog” serviert wird. Der Kinoschocker mag zwar auf neben- 
stehendem Bildschirmfoto etwas verharmlost wiedergegeben 
sein, doch glauben Sie ja nicht, daß Ihr Nervengerüst deshalb 
ungeschoren davon kommen wird. Nebelschwaden ziehen auf, 
wenn Sie Seite 18 aufschlagen. 

DISK-MANAGER und CALCULATOR-64 sind zwei ANWENDER- 
PROGRAMME, die in keiner "applications library” fehlen dürfen. 
Was Ihr 64er damit leistet, ist kaum zu glauben. e 


Wer BTX in Anspruch nehmen will, solite 
die Orgatechnik ’84 auf jeden Fall ein- 
planen. 


Die diesjährige Orga-Technik in Köln wird vor allem für BTX- 
Interessenten eine Menge zu bieten haben: Gerade kleine und 
mittlere Unternehmen können über BTX so preiswert wie noch 
nie ein wirkungsvolles Direct Mailing betreiben. Und auch der 
private Nutzer wird in Zukunft an diesem neuen Kommunika- 
tionssystem der Bundespost nicht vorbeikommen. Informieren 
Sie sich auf Seite 5. 
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Speichermedium Kassette Teil 1 

Für die Commodore Heimcomputer 
gilt die Datasette als 
kostengünstige Speichereinheit. 

Wir wollen uns die Kassetteneinheit 
mal etwas genauer anschauen 

und versuchen, die Funktionsweise 
zu verstehen. 26 


Fritz und Karl und Hannelore — 
Alle kaufen Commodore (Teil 2) 
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Vom Playlearning zum Roboting 
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Graf/Jakob/Meindl/Weber: 
Microprozessor/-Gomputer 


Software Reviews 
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Wir testeten für Sie zwei 
Flipperprogramme für den C-64 


Layout — Leiterplattenentwurf- 
System (für GBM 620/720) 


Basic-Kurs (rei 7) 
Leserbriefe 


Adventurecke 
Ultima II für den G-64 


Testbericht 


Electronic Printer Brother EP-44 


Korrektur 
Magdomnad (C-64) aus 
”Gompute mit 41” 
Programmbeschreibung 
"Textverarbeitung aus 
”Gompute mit 41” 


Goldfinger (VC-20) aus 
”Gompute mit”.37 und und 38 
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IEEE-488 BUS '?® 


C64/IEEE-488 EA HEBENE 
Steckmodul 


Dieser ausgereifte, weltweit erprobte IEEE-488-Modul eröff- 
net dem Commodore 64 über seinen parallelen Ausgang 
ungeahnte Einsatzmöglichkeiten wie: 

große, IEEE-kompatible CBM-Peripherie am C-64, simulta- 
nen (seriell - VC/paralleler - IEEE) Datenverkehr. Konflikt- 
freie, speicherverschiebliche Modulsoftware. Im Einsatz bei- 
spielsweise in Schulen ermöglicht der IEEE-488-Steck- 


AUAANDDRN 
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modul problemlose Mehrbenutzersysteme am IEC-Bus wie 
auch durch die rationell genutzte Peripherie: z.B. zahlreiche 
Computer an einer Doppelfloppy. 

In der Industrie bietet der IEEE-488-Steckmodul ‘ nn 1 

die Möglichkeit für preisgünstige IEC-Meß-/Steuersysteme 

mit dem Commodore 64 als Controller. Zu diesem Modul wird 

ein Betriebshandbuch geliefert, in dem Beschreibungen zu 

fast sämtlichen Anwendungsfällen mit Programmbeispielen, 

Belegungstabellen, Angaben zum erforderlichen Kabel- und Steckermaterial, Literatur a 
etc. aufgeführt sind. Zusätzlich können zum IEEE-488-Steckmodul Anwendungs- mil 
hilfen wie u.a. Disketten mit Lesekennzeichen, Utility-Disketten usw. bezogen werden. 


DICH, 


. te-wi Verlag GmbH 
IEEE-Steckmodul für Commodore 64 Theo-Prosel-Weg 1 
einschließlich Betriebshandbuch DM 239,-- inkl. MwSt. - 8000 München 40 


Weiterführende Literatur... 


NEU! C-64 Computerhandbuch 

Ein Handbuch für jeden Erfahrungsstand: von 
der ersten Begegnung bis zum professionellen 
Einsatz des COMMODORE 64 bzw. 1541. Das 
Werk ist sehr bildreich und bietet somit eine 


CBM Computer Handbuch 

Dieses unentbehrliche Nachschlagewerk bietet 

eine wahre Fundgrube - mit einer schrittweisen 
Einführung bis hin zur Darstellung aller profes- 
sionellen Möglichkeiten dieses beliebten Com- 


schnelle Übersicht — als echtes Nachschlage- puters. 
werk werden Sie es stets in der Nähe Ihres Osborne/Danahue, 544 Seiten, Softcover, 
Computers finden. DM 59.-- 


Raeto West, ca. 400 Seiten, Softcover, 
DM 56,--, 4. Qu. 84 


NEU! C-64 Akustik und Graphik 

Ein planvoller Lehrgang - keine Beispielsamm- 
lung - in anschaulichem Stil — daher für jedes 
Alter. Dieses Werk eröffnet dem C-64-Benutzer 
die Welt der Graphiken und Klangbilder. Es ent- 
hält Programmbibliotheken und wird abgerun- 
det durch zahlreiche Anhänge. 

John Anderson, ca. 200 Seiten, Softcover, 

DM 49,--, 4. Qu. 84 


NEU! LOGO Computersprache für Kinder 
und Eltern 

Dieses Buch beweist: Jeder kann program- 
mieren. LOGO ist die Computersprache für 
Eltern und Kinder. Nicht umsonst wurde dieser 
Titel zum „Buch des Jahres 1983“ in den USA. 
LOGO ist das Ergebnis der Erforschung 
menschlicher Intelligenz; entwickelt von einem 
Pädagogen und Mathematikprofessor. LOGO 
ist die erste Computersprache, die bewußt Stra- 
tegien menschlichen Denkens dient. 


6502 - Programmieren in Assembler Daniel Watt, ca. 400 Seiten, Softcover, 
Dieses Buch behandelt ausführlich die Assem- DM 59,--, 4. Qu. 84 
blersprachen-Programmierung für den weitver- 
breiteten Mikroprozessor 6502. Er steckt auch m) u CO ÜEED OHR Zn ir m a Ya a arms ie Ka a a 
in Ihrem C-64. E7 
Lance Leventhal, 704 Seiten, Softcover, | Hiermit bestelle(n) ich (wir): & 
DM 59,-- | 
| 
| 
Der Sensible C-64 4.Q.84, DM 29,80 | 
CP/M und WordStar DM 29,80 N = 
C-64 Programmsammlung 4.Q.84, DM 29,80 WE UDENEEHEIESEEEAEE 
VisiCalc (mit CBM Diskette) DM79-- | Datum Unterschrift 
„ . 77 BASIC Programme DM 39,-- | 
S  Mikröcomputer-Grundwissen DM 36,-- IN Fi 
£  C-64 Computer für Kinder 4.Q.84, DM 29,80 | aa ar 
VC20 Computer für Kinder 4.Q.84, DM 29,80 
| Straße/Postfach 


Ort 


ELEX WW TELEX WU TELEX WU TELEXWWT 


1 


Business-Basic für Commodore 


Betriebswirtschaftliche Pro- 
bleme mit dem Mikro-Com- 
puter zu lösen, hat der ”Be- 
triebswirtschaftliche Verlag 
Dr. Th. Gabler”, Wiesbaden, 
mit dem Segment ”Mikro” der 
Programmreihe "Gabler-Pra- 
xis” begonnen. Die formu- 
lierte Zielsetzung, EDV-An- 
wenderliteratur herauszuge- 
ben, die auch für solche 
Interessenten lesbar und an- 
wendbar ist, die sich nicht als 
EDV-Experten verstehen, 
zeigt sich deutlich bei den er- 
sten drei Titeln, die soeben 
vorgestellt wurden. 


"Statistik im Betrieb mit 
Basic auf Commodore” bietet 
dem Benutzer der Commo- 
dore-Serie 2.000, 3.000, 


4.000 oder 8.000 für den Be- 
trieb mit Basic-Interpretern 
Lösungen: Vom Hypothesen- 
test, exponentieller Glättung, 
Zeitreihenanalysen, Ausgleichs- 
funktionen bis zu Maß- und 
Indexzahlen, Regression und 
Korrelation, Stichprobenaus- 
wertung. Diese 45 Pro- 
gramme sind auch auf 
Diskette erhältlich und lassen 
sich durch geringfügige Modi- 
fikation der Listings problem- 
los auch an unterschiedliche 
Systeme anpassen. Die Auto- 
ren Scharnbacher und Kast- 
ner sind ordentliche Professo- 
ren und Dozenten für Sta- 
tistik an der Fachhochschule 
in Mainz. 


Gustav Kastner ist ebenfalls 


Autor des zweiten Gabler- 
Mikro-Buches "Operations 
Research mit Basic auf Com- 
modore”. Diese besonders 
zeitintensiven Verfahren wer- 
den somit auch dem Klein- 
oder Mittelbetrieb durch den 
Mikro zugänglich. Das Buch 
vermittelt über die Pro- 
grammlistings hinaus auch 


“deren Logik anhand von 


Stukturprogrammen. 


Ein für alle Branchen stets- 


aktuelles Problem — die Ter- 
minplanung — löst Kastner in 
seinem nächsten Buch: "Ter- 
minplanung mit Basic auf 
Commodore”. Auch diese 
Software (ebenfalls auf 5 1/4 
Zoll-Diskette erhältlich) ist 


sofort einsetzbar auf allen | 


Commodorfe-Computern der 
Serien 2.000-4.000 mit 
Basic-Interpretern. 


Gabler sieht dieses neue Pro- 
gramm als Praktiker-Ergän- 
zung der bereits im Markt be- 
findlichen Hobby-Bücher und 
wird so sehr schnell die Um- 
setzung wissenschaftlicher 
Methoden mit Mikrö-Com- 
putern in Buch- und Disket- 
tenform weiterentwickeln. 
Für die Qualität der Produkte 
bürgen neben dem seit Jahren 
anerkannten Autorenkreis 
auch Tradition und Erfahrung 
des Wiesbadener wissen- 
schaftlichen Fachverlages. 


Neue Joysticks mit Pfiff 


Unter der Bezeichnung ”Wico 


Command Control” präsen- 


tierte die Computer-Zubehör 
Firma Wico neue Steuerknüp- 
pel für Heim- und Perso- 
nalcomputer. Der Super 3- 
way Delux (Abb. 1) kann 
gleich mit 3 auswechselbaren 
Handgriffen aufwarten. So 
kann zu jedem Programm der 
”persönliche” Griff benutzt 
werden. Die Handgriffe sind 
einfach auszuwechseln und 
zudem gibt es 2 Jahre Garan- 
tie. Zwei unabhängige, um- 
schaltbare Feuerknöpfe und 
ergonomische Gesamtform 
verhindern das schnelle Er- 
müden der Handmuskeln. 
Der ”Super 3-way Delux” 
paßt nahezu an alle gängigen 
Heimcomputer. Eine Bewe- 
gungsfreiheit von über 360 
Grad bietet der Wico ”Track- 
ball”. In Original Spielhallen- 
ausführung gewährleistet 
der Trackball schnelle Reak- 
tionszeiten und gute Kontrolle 
über den Heimcomputer. An- 
zuschließen ist er an die 
Atari- und Commodore 
Heimcomputer. 


Extreme Genauigkeit und 
präzise Geschwin- 


digkeitskontrolle 
den ”Boss” Joystick aus. 


Compube mi 


zeichnen | Auch er ist an alle gängigen 


Heimcomputer anzuschließen. 
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Ein Nadel-Matrixdrucker von Olympia 
für jeden Mikrocomputer 


Von Iti-Datentechnik in Leon- 
berg sind die Nadeldrucker 
Olympia electronic compact 
NP sofort ab Lager lieferbar. 
Dieser Drucker ist Epson FX - 
kompatibel und hat dazu 
noch weitere beachtenswerte 
Eigenschaften: 


— Per Tastendruck kann in 
Schönschrift gedruckt wer- 
den. Dazu wird jede Zeile 
zweimal mit leichterem Ver- 
satz gedruckt. 

- Durch eine Gummiwalze 
wird ein sehr leiser Druck 
erzielt. 

- Mit den Bedientasten kann 
der linke und der rechte Rand 
gesetzt werden. 

- Der Traktor ist auch auf 
schmales Papier (einbahnige 
Etiketten) einstellbar. 


Der Preis beträgt für die Aus- 


Ausgefeilte Btx-Software für Mikro-Gomputer 


Hamburg, 28.09.84 - Noch 
nie gab es für Btx-Anbieter — 
dies gilt vor allem für kleinere 
und mittlere Unternehmen — 
so weitreichende Mög- 
lichkeiten, Anfragen und Auf- 
träge mit einem Mikro- 
Computer rationell und vor 
allem schnell zu bearbeiten: 
Unter der Bezeichnung 
"mikrormail” stellt die Ham- 
burger Mikro-Partner GmbH 
anläßlich der Kölner Or- 
gatechnik ein ausgefeiltes 
Btx-Software-Programm vor. 
Für Btx-Anbieter ist dies ein 
preiswerter Einstieg in die: 
Verarbeitung der Btx-Nutz- 
daten auf elektronischem 
Weg. Dieses neuentwickelte 
Programm läuft prinzipiell 
auf allem Mikros mit dem Be- 
triebssystemen MS-DOS und 
CP/M sowie anderen Syste- 
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führung mit Centronics-Inter- 
face DM 1.698,- und für 
Centronics und V.24-Inter- 
face (alle Baudraten, Hard- 


ware- und Softwareprotokoll) 


DM 1.948,- inkl. Mwst. Eine 
Ausführung für den C-64 mit 
Grafikfähiakeit kostet DM 
1.948,-. 

Info.: Iti-Datentechnik, 


Telemannstraße 18, 
7250 Leonberg, 
Tel.: (07152) 6305 
oder 71074 


Neu zur Orgatechnik 


men, die mindestens einen 64 
KB-Hauptspeicher und eine 
serielle Schnittstelle aufwei- 
sen. Unter anderem sind dies 
der IBM PC und die dazu kom- 


patiblen Maschinen, DEC 
Rainbow, Sharp PC-5000 und 
Sharp MZ-3541 als auch der 
Commodore C-64. Die Beson- 


derheiten der neuen "mikro- 
mail” liegen unter anderem in 
der konzentrierten Aus- 
wertung der Btx-Nutzinfor- 
mationen und im automati- 
schen Verbindungsaufbau zur 
Btx-Zentrale.e. Mit einem 
DBTo3-Modem kann dies 


auch zu einem beliebig fest- | 


Compute milk 


gelegten Zeitpunkt erfolgen. 
Nach Auffassung von Prof. Dr. 
Glashoff, Mikro-Partner 
GmbH, sind eine Reihe von 
Btx-fähigen Mikro-Computer 
auf dem Markt, deren Her- 
steller bislang keine Möglich- 
keit gesehen haben, diese 
Kommunikationschancen zu 
nutzen. Das neue Programm 
wird während der Orgatech- 
nik (24.-30.10.1984) auf dem 
Sharp-Messestand, Halle 11 
EG, Stand Nr. BC und CD 20/ 
19, von Mikro-Partner auf 
dem PC-5000 und dem MZ- 
3541 vorgeführt. 


Bi—— 
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Nach großem Erfolg — Videoshow wieder in Amsterdam 


Ein einmaliges Schaufenster 
für die schnellwachsende 
Videotex- und Teletexindu- 
strie wird die Internationale 
Videotexkonferenz und - 
ausstellung in Amsterdam 
sein, die dort im November 
stattfindet: Immerhin sind 
rund drei Millionen Terminals 
bereits in mehr als zwanzig 
Ländern installiert. 


Internationale Bedeutung: 
Anläßlich der”Videotex Inter- 
national”, die im RAl-Zentrum 
vom 20. bis 22. November 
1984 stattfindet, werden die 
führenden Fachleute auf 
diesem Gebiet aus Nord- 
amerika, Europa und dem fer- 
nen Osten zusammentreffen. 
Die Konferenz wird in zwei 
Gruppen stattfinden, die 
durch Diskussionsarbeits- 
kreise erweitert werden. 


Der Arbeitskreis”Ist-Zustand 
und Ausblick” beginnt mit ei- 


Su 


Unser Softwareversand bietet 
Ihnen zu wirklich einmalig 
günstigen Preisen jede Wo- 
che die neuesten Programme, 
auf Kassette an. 

Wenn Sie die hier aufge- 
führten Bedingungen beach- 
ten, können auch Sie von un- 
serem Angebot Gebrauch 
machen. 


Bestellungen Inland: 

Gegen Einsendung eines 
Schecks oder Vorauszahlung 
auf unser Konto bei der 
Kreissparkasse Eschwege, 
Bankleitzahl 522 500 30 
Kto.-Nr. 45 22 934 

senden wir Ihnen die ge- 
wünschten Programme 
schnellstmöglich zu. Geben 
Sie bitte unbedingt die ge- 
naue Bezeichnung der Kas- 
sette (z.B. Compute mit 37/ 


nem internationalen Treffen, 
auf die nationalen Entwick- 
lungen in Japan, den Verei- 
nigten Staaten, der Bun- 
desrepublik Deutschland, 
Großbritannien, den Nieder- 
landen und Frankreich vorge- 
stellt werden. 


Nach einem Gedankenaus- 
tausch über die jüngsten 
Fortschritte auf dem Sektor 
Teletex werden in dem Ar- 
beitskreis die herausragen- 
den Entwicklungen des ge- 
genwärtigen Videotex-Ange- 
botes vorgestellt. Die vor- 
gestellten Themen dieses Ar- 
beitskreises werden kurz vor 
Beginn ausgewählt, um 
sicherzustellen, daß die Kon- 
ferenzteilnehmer auch wirklich 
das Allerneueste erfahren. 


Blick in die Zukunft: 
Der Konferenzteil, der sich 
mit dem Ausblick auf das 
Jahr 1990 befaßt, wird durch 


84 C-64) und den Computer 


an. 


Bestellungen Ausland: 
Nur Vorauskasse, Schein 


Keine Schecks oder Über- 


weisungen! 


die Präsentation einer inter- 
nationalen Untersuchung er- 
gänzt, die die jüngste Entwick- 
lung bei Terminals beleuch- 
tet unter Berücksichtigung 
der Rolle des Wettbewerbes 
auf dem Microcomputer- 
Markt, des Bürosektors und 
der Entwicklung standardi- 
sierter multifunktionaler 
Geräte. 


Der Arbeitskreis "”Anwen- 
dung und Installierung” wird 
mit einem Seminar für 
Videotex-Neulinge eröffnet. 
Anschließend ist eine Demon- 
stration vorgesehen, die 
Videotex-Operationen wer- 
den den Teilnehmern vorge- 
führt, um ihnen zu zeigen, wie 
die technischen Gege- 


benheiten in wirtschaftliche 
umgesetzt werden können. 

Wichtigster Punkt der Kon- 
ferenz ”Videotex Internatio- 
nal” ist eine Sitzung, die sich 
mit der Entwicklung der An- 
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Fireball 
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wendungsmöglichkeiten be- 
faßt. Der Prestel-Service aus 
England wird die Entwicklung 
seines kürzlich in Betrieb ge- 
nommenen Projektes Farm- 
link vom Beginn der Entwick- 


“Jung bis zur Etablierung im 


Markt vorstellen. Dabei ha- 
ben die Teilnehmer die 
Chance, genau die Anforde- 
rungen kennenzulernen. 


Die Anwendungsmög- 
lichkeiten für elektronisch ab- 
gewickelte Bankgeschäfte 
gehören ebenfalls zu den ein- 
zelnen Arbeitskreisen. Die 
verschiedenen Workshops, es 
sind insgesamt elf, ermög- 
lichen es allen Teilnehmern 
ihr Eindrücke mitzuteilen und. 
Erfahrungen auszutauschen. 
Die Themen sind Kabel- 
fernsehen, ein IP-Forum und 
Diskussion einer Standardi- 
sierung. 


K14,- DM 
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N N AN (3 
UF 


Tei8\ Logik im Basicprogramm 


Wie man Systematik in sein Selbstgestricktes bringt 


Bevor wir mit der heutigen”Lektion” beginnen, will ich nicht versäumen, eine wichtige Anmerkung zum letzten 
Teil zu machen. Wenn Sie vor einer Woche geglaubt haben sollten, ich wolle Sie mit der Lösung unserer 
Hausaufgabe (Stichwort: Commodore-Uhr) noch weitere acht Tage hängen lassen, haben Sie sich natürlich 
geirrt. Selbstverständlich war auch das fertige Listing in Original-Basic zur Veröffentlichung vorgesehen-lei- 
der kam es aber durch eine technische Panne nicht in’s Heft. 
Hier ist es nun — wenn auch ein wenig verspätet... 


15:REM COMMODORE-UHR 

28° INPUT "STUNDE *5H 

212 INPUT "MINUTEN *5M 

36:FOR I=H TO 24 

Z1:IF H=24 THEN 80 

sd: FÜR J=m TO 68 

Sö:FÜR $=0 TO 68 

5i:IF S=65 THEN LET $=8 
: G0T0 53 


=65 THEN LET N=8 
bITO 55 


Hrl: IF H=24 THEN 
T h=0 

HNUBTERERIT FETRFT:T 
I 


T1:NEXT J 
T2SNEXT I 
$sg:h=d:m=3:5=8: GOTO 38 


Doch nun zu etwas anderem. 

Sie wissen vielleicht, daß man unsere 
Erde zwar gemeinhin eine Kugel nennt, 
sie in Wahrheit aber geringfügig an den 
Polen abgeplattet Ist. Daher Ist es In 
Aquatornähe von der Erdoberfläche bis 
zum Erdmittelpunkt rund 21,5 km weiter 
als an den Polen. Gemessen am Ge- 
samtradius von mehr als 6350 Kilo- 
metern ist diese Differenz zwar gering, 
doch bei Berechnungen von Satelliten- 
bahnen sehr wohl von Bedeutung. 

In diesen Tagen nimmt die Gemein- 
schaftsunternehmung von SRG, ORF und 
ZDF in Sachen Satelliten-Fernsehen, das 
Projekt "DREI-SAT”, den Regelbetrieb 
auf. 

Wir wollen dies zum Anlaß nehmen, ein 
wenig NASA zu spielen und ein Pro- 
gramm zur Berechnung von Gravitation 
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und Orbitalgeschwindigkeit zu schrel- 
ben. Damit werden wir uns in dieser und 
einer weiteren Folge beschäftigen. 


Das Problem: 

Wie gesagt, die Erd-"Kugel” ist in Wahr- 
heit ein Ellipsoid (= Körper, dessen 
Querschnitt eine Ellipse ist). Bereits zu 
Beginn der Dreißiger Jahre wurde auf in- 
ternationaler Ebene eine weltweit ver- 


bindliche Schwere-Formel aufgestellt, 
die abhängig von der jeweiligen geogra- 
phischen Breite einen Gravitationswert 
liefert. Bezeichnen wir die Gravitation 
(also Schwerkraft) mit G, die geogra- 
phische Breite mit B und die Maßeinheit 
der Geschwindigkeit mit cm/sek?, so 
können wir die besagte Formel so 
schreiben: 


G = 978,049 (1+ 0,005288 (sin B)’) - 0,000006 (sin 2 B)? - (0,00030852)cm/s? 


Die 0,00030852 beziehen sich auf die 

örtliche ”Höhe über NN”, also die Höhe 

über dem Meeresspiegel. 

Unser Programm muß also folgendes 

berücksichtigen. 

1. die Anforderung der 
Parameter 

a) geographischer Ort (L$) 

b) die jeweilige Breite (B) 

c) die Höhe über NN (H) 

2. die Berechnung der 

Gravitation 

a) für Höhe Normal Null (NN) 

b) für L$ 


benötigten 


a) Geographischer Ort = ....... 
b) Geographische Breite = .....o... 
Höhe über Meeresspiegel = ......m 


, 


4. das Ausdrucken der ermittelten 
Werte 

a) für Meereshöhe 

b) für geografische Höhe 


Das sieht nach einem ellenlangen Listing 
aus, werden Sie jetzt vielleicht denken: 
Irrtum!. So umfangreich wird es gar 
nicht. Schreiben wir zunächst einmal die 
deutsche Grundfassung (ohne Zeilen- 


3. die Bestätigung der von uns ge- | Nummern): 


machten Eingaben 


numerische Variable für die geographische Breite 


Bemerkung Gravitationsprogramm 

Gib ein String-Variable für den Ort 
Gib ein 

Gib ein 


numerische Variable für geographische Höhe 


Laß Variable G gleich 978.049(1+4.005288 SIN B)?-(.000006 SIN 2B)? sein 
Laß Variable O gleich G-(Hx0.00030852) sein , 


Drucke ”Schwerkraft-Berechnung” 
Drucke Leerzeile 
Drucke "Ort = ";L$ (Variable für Ort) 


Drucke "Breite = ";B (Variable für Breite) 


Drucke "Höhe über NN = ";H (Variable für Höhe NN) 


Drucke Leerzeile 


Fortsetzung Seite 52 


Compute mi 


Glücksspiele sind sehr faszinierend. 
Doch bei Glücksspielen am Computer 
fehlt der Umgang mit dem ”Spielzeug”, 
mit den Karten, der Roulette-Kugel oder 
den Würfeln. 

Darum sind Computerspiele besonders 
dann interessant, wenn sie die Möglich- 
keit bieten, durch Intelligenz, persönliche 
Geschicklichkeit und Reaktionsvermö- 
gen das Spielgeschehen zu beeinflus- 
sen. 

Würfel gelten als klassisches Beispiel für 
.Zufallsereignisse. Doch wenn Sie selbst 
schon gewürfelt haben, wissen Sie, wie 
sehr man in entscheidenden Spielphasen 
versucht, durch besonders intensives, 
konzentriertes und langes Schütteln den 
Wurf zu beeinflussen. 

Dieses Programm bietet die Möglichkeit, 
den Wurf zu beeinflussen. Es wurde be- 
wußt auf eine RND-Routine verzichtet. 
Man beginnt auf Tastendruck (A,B,C oder 
D) den Würfel zu schütteln und läßt ihn 
auf Tastendruck langsam ausrollen. 
Dann wird das erreichte Würfelbild 


4 PRINT"W" 

5 PRINT:PRINT” 
8 PRINT:PRINT:FRINT:FRINT* 
18 PRINT:PRINT: INPUT"1.NAME 


18 PRINT:PRINT"STUNDEN 


PRINT" "NE,,M&£ 
FRINT"KAPITAL: "S1,,S2 
INPUT"EINSATZ "EI 


IFE2>S2THEN PRINT" 
IFEI>EZTHENE2=B: GOTO1BE 
IFE2=E1THENPRINT:GOTO118 


GETER$: IFERE=""THENI116 


FOKES32898,6:PRINT:PRINT 


19 PRINT "[ERBEBBRRBRBBMINUTEN 
28 K1=S1:K2=S2: TF=STE+MI$+"88":TI$="BO8009" 


rfelspie 


für den Commodore 64 


dargestellt. 

Die Spieler wechseln einander beim Wür- 
fen ab, jeder hat pro Spiel zwei Würfel. 
Nach jedem Durchgang werden die Wür- 
fel getauscht. Eine Abrechnung der Ein- 
sätze ist selbstverständlich im Pro- 
gramm integriert. 


Variablenliste: 

N$, M$: Spielernamen 

S1, $2: Spielkapital 

Ki, K2: Startkapital 

ST$, M$: Zeitvorgabe 

T$: Spielzeit 

EI, E2: Einsätze 

ER$: Erhöhungsbefehl 

Ai-A7, B1-B7, 61-67, D1-D7: Bildschirm- 
adressen für Würfelaugen 

Z: CHR$-Code für Würfelauge 

61, 62: Summe der Würfelaugen für N$ 
und M$ 

I: Zählvariable 

$3, X$: ”Keller”-Variable für Tausch des 
Spielkapitals und Spielplatzes 

WS: Warten 


NUERFELSPTIELN 
FUER ZWEI 
";N$: INPUT "TRERBBBRBRBREBEBBRBI> . NANE 
12 INPUT"'KAPITAL "3S1:INPUT"TRRRRPERRRBBBRBBBBRBEAPITAL ";S2 
13 PRINT:PRINT"SIE KOENNEN IN JEDER RUNDE IHREN EINSATZ" 
14 FRINT"NEU EINGEBEN. DER PARTNER MUSS ERHOEHEN*" !PRINT:PRINT"ODER GLEICHZ IEHEN. 
17 PRINT:PRINT"WIE LANGE WOLLEN SIE SPIELEN ?" 
- "tINFUT'OBBEBRPRBI" ST 
..": INPUT "ORBREBPEBRRRBERRBBRBI' MI 


'MIDNIGHT-GAMBLERS! '" 


IFE1ISITHEN PRINT"UNMOEGLICH!":FOR I1=1T0598:NEXT:GOTO1B88 
INPUT"CREBRRPERRERREBRPRBRERBF INSATZ ";E2 


UNMOEGLICH!":SFOR I=1T0589:NEXT:GOTO1BB 
PRINT"WOLLEN SIE ERHOEHEN?<J/NI! 


IFER$="J"THENPR INT "OOIIID" :E1=8:E2=9:G0T0108 
Ei=EZ:PRINT"CIBERBERSBBI"E 1 


128 PRINT" F' ıBBı u 
138 PRINT" F R 
148 PRINT" A 2 EeBI EBBREE- " 
158 PRINT" a kai s 


Compube mib 


Programmaufbau: 

4-19: Eröffnung des Spieles 

Eingabe der Namen und des Startka- 
pitals. Eingabe der gewünschten Spiel- 
zeit. Kurze Erläuterung. 

100-118: Spieleinsatz mit Möglichkeit 
zur Erhöhung 

120-185: Zeichnen der vier Würfelober- 
seiten 

200-215: Adressen zum POKEn der 
Würfelaugen 

295-575: Würfeln, erstellen der gewür- 
felten Zahl in den Unterprogrammen: 
1030-1080 für A 

2030-2080 für B 

3030-3080 für C 

4030-4080 für D 

Erstellen des Würfelbildes’ 

600-605: Auswertung der Würfe 
610-621: Entweder Spiel beenden oder 
nochmals würfeln 

650-660: Tausch der Spielplätze 
669-750: Abrechnung 


";M$ 
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Vi 
GVIMIISNSD 
ne NO O9 


on 0m 


n 0) 
U»W 


136 
ea 
295 
218 
215 
2935 
sa® 
sa2 
583 
319 
sı1 
312 
313 
s14 
315 
488 
485 
496 
457 
4993 
418 
ai 
ale 
413 
414 
415 
416 
417 
418 


428 
s2i 

a22 
423 
424 
425 
426 
427 
428 
423 
431 
432 
433 
434 
435 
436 


688 
eu4 
695 
619 
611 
615 
828 
g21 
E59 
651 
6855 
‚669 
665 
669 
E72 
672 


PRINT" F) mp ” 
PRINT "ERRRRRPRRPPRRPPREI 1" 
PRINT"IRBERBERPPERBERBBI " 


PRINT" 2 1177 " 
PRINT" a EEBI " 
PRINT" B a ıpBI ERRmEE " 
PRINT" F| IIT7] “ 
PRINT" F) [1171 “ 
PRINT:PRINT 


Al=s1276:A2=1278:A3=1316:A4=1317:A5=1318:A6=1356:N7=1358 
B1=-1596:B2=1598:B3=1636:B4=1637:B5=1638:B6=1676:B7=1678:2=209 
C1=1236:C02=12838:C3=1326:C04=1327:C5=1323:C6=1366:C7=1368 


D1=1606:D2=1698:D03=1646:D4=1647:05=1648:0D6=16386:D07=1688:2=209 v4, 
PRINTN£",TASTE 'A' DRUECKEN! ” fe 


GETAF: IFAF="" THENS39OD 

IF AF="A"THENGOSUB1939:G0OTD 318 

soTosea 

IFA=1THENSOSUBS89:G0T0415 
IFA=2THENGOSUBSBS:GOTO4 15 
IFA=3THENGOSUBS88: GOSUBSB5:GOTO415 

IFA=4 THENGOSUBSBS : GOSUBS 18:G0OT0415 
IFA=STHENGOSUBSB8B:GOSUBSB5:GOSUBS19:G0TO415 
IFA=8THENGOSUBS9S : GOSUBS19:G0SUBS15:G0T04 15 
PRINT"D"NE" ‚TASTE 'B' DRUECKEN! " 
GETBE: IFB&=""THEN485S 

IF B£="B"THENGOSUB2939:G0T0499 

GOT0485 

IFB=1THENGOSUBS28:G0T0426 
IFB=2THENGOSUBS25:G60T0426 
IFB=3THENGOSUBS28:GOSUBS25:G0T0426 

IFB=4 THENGOSUBS25:G0SUBS39:G0OTO426 
IFB=5STHENGOSUBS28 : GOSUBS25:GOSUBS39:GOTO426 
IFB=68 THENGOSUBS25 !GOSUBS39 : GOSUBS35:GOTO426 
PRINT'"D TASTE'C', "M£ 

GETCS: IFCE=""THENAI1E 

IF C$="C" THENGOSUB3939:G0OT0O428 


GOTOA1E 

IFC=1THENGOSUBS48:G60T0488 i 588 POKE A4,2Z:RETURN 
IFC=2THENGSOSUBS45:G60T0498 585 POKE Al,2:POKEA? ,Z:RETURN 
IFC=3THENGOSUBS48 : GOSUBS45:G60T0498 518 POKE A2,Z:POKEAB,Z:RETURN 
IFC=4 THENGOSUBS45 : 605SUB559 :60T0498 515 POKE A3,2:POKEAS,Z:RETURN 
IFC=STHENGOSUBS48 : GOSUBS45:GOSUBSSB :GOTOABD 528 POKE B4,Z:RETURN 
IFC=8THENGOSUBS45 : GOSUBSS9 :GOSUBSSS:GOTO488 25 POKE B1,2:POKEB7?,Z:RETURN 
PRINT'O TASTE'D', "MS 538 POKE B2,Z:POKEBS,Z:RETURN 
GETDS: IFD$S=""THEN427 535 POKE B3,2:POKEBS,Z :RETURN 
IF D$="D"THENGOSUB4939:G0T0431 548 POKE C4,Z:RETURN 

G0T0427 545 POKE C1,2:POKEC? ,Z:RETURN 
IFD= 1 THENGOSUBSSB : GOTOSO® 558 POKE C2,2:POKECE,Z:RETURN 
IFD=2THENGOSUBSES: G0T0688 555 FOKE C3,2:POKECS,Z:RETURN 
IFD=3THENGOSUBSSB : GOSUBS6S:GOTOS2L Se@ POKE D4,Z:RETURN 

IFD=4 THENGOSUBS8S : GOSUBS79:G0TOEDOO S65 POKE D1,2:POKED? ‚2:RETURN 
IFD=5STHENGOSUBS68 : GOSUBSES ; GOSUBS79:G0OTO69D 578 POKE D2,Z:POKEDS,Z:RETURN 
IFD=6 THENGOSUBSSS : GOSUBS79 :G0SUBS75:G0T0688 575 POKE D3,2:POKEDS,Z:RETURN 


G1=A+B:62=C+D: IFGIIG2PTHENPRINTNE" HAT GEWONNEN! ":S1=S1+E1:52=S2-E1:G0TOS1B 
IF G1=G2THEN PRINT"UNENTSCHIEDEN!":GOTOS1® 

PRINTME" HAT GEWONNEN!" :S2=S2+E2:51=S1-E1:G0TOS1B 
PRINT" EIN NEUES SPIEL?" 

GET WS: IFWE=S""THENGI11 

IF WE="J" THEN 6598 

IF W$="N" THEN PRINT"":GOTOSSS 

GOTOS11 

RE=SNEINS=MEIMESK$:1SI=-S1:S1-5S2:52=53 

IF T$<=TI$STHENPRINT"W DIE ZEIT IST UM! ":PRINT:GOTOSESY 
PRINT"WIR WECHSELN DIE WUERFEL !" 
FOR1=1T01889:NEXT:GOTO198 

GOTO188 

PRINT:PRINT:PRINT"ZEBBEBBER BR EC HN UN G":PRINT 
PRINT" "NE" HAT MIT "Ki" BEGONNEN. ":PRINT 

PRINT" ENDKAPITAL VON "N$" BETRAEGTE"SI:PRINT 
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PRINT" "M$" HAT MIT "K2" BEGONNEN. "tPRINT. 


677 PRINT" ENDKAPITAL VON "M£" BETRAEGT "S2:PRINT 

688 IF SI<KITHEN 788 

682 IF SI=KITHEN PRINT* UNENTSCHIEDEN! "END 

885 PRINT:PRINT" "N$" HAT GEWONNEN UND BEKOMMT VON ":PRINT 

698 PRINT" "ME" "cSi-K1)" AUSBEZAHLT.":GOTO 758 

788 FRINT:PRINT" "M$" HAT GEWONNEN UND BEKOMMT VON" SPRINT 

7aS PRINT" "NE" "(S2-K2)" AUSBEZAHLT.":GOTO 758 

758 PRINTIPRINT’T GRATUL TIERE !":POKES3288,14:END 

1838 PRINT"EILIIIIIED" 

1835 FORI=1TOE 3975 PRINT " MIIEIDEDg" 

1058 GETSS: IFSE="A"THENGOSUB4 135:A=W:GOTO1B875 „939 PRINT"TELLLLLIID" 

1868 NEXTI 4835 FORI=1T06 

1878 GOTO1835 4848 D=I:PRINT"TERBERRRERRSRRRRRBI"D 
1875 PRINT " RISIEIsIaianl" 4858 GETSS$: IFS$="D" THENGOSUB4 135:D=W:GOT04975 
18859 RETURN 40€EB NEXTI 

2838 PRINT "DOIIIIIIIND" 49878 GOTO4235 

2035 FOBISTTOS 4975 PRINT " KIeialaaepeng" 

29848 B=I:PRINT "TREBBRREBERERPBREPRI"B 4888 RETURN 

20858 GETSS: IFS$="B"THENGOSUB4135:B=W:GOTO2875 „35 S=B:4=0 

2868 NEXTI 4148 FORJ=CI+1ITOCI+6) 

29078 GOTO2835 4145 S=S+89:W=J 

ea75 PRINT " BIERgeimd" 4158 IFW>IETHENW=SW-E 

20888 RETURN 4155 IFS=SSBOTHEN4 175 

s3o3@ PRINT"CORLIITIID" 41680 FORBR=BTOS:NEXT 

2035 FORI=1TOE 4185 PRINT "CRRERBRERREBBRBREBI'\L: NEXT 
2@48 C=1I:PRINT "[RRBRRERPEREPREREBBI"C 4178 G0T04148 

3050 GETSE: IFSE="C"THENGOSUB4135:C=W:GOTO3975 | ,-= PRINT" DERBERBBRRRERBERBEBRI' LU: RETURN 
3869 NEXTI RERDY. 

3078 GOTO3835 


CALCULATOR-64 


Manche Programme entstehen spontan 
aus einer Laune heraus, manche aber 
auch ganz einfach durch eine bestimmte 
Situation. Unser vorliegendes Anwender- 
Programm z.B. entstand nur deshalb, 
weil ein simpier Taschenrechner just im 
verkehrten Augenblick "den Geist 
aufgah”. 


Wohl dem, der angesichts eines solchen 
Mißgeschicks auf einen leistungsfähi- 
gen Heimcomputer zurückgreifen kann. 
Mit ”Calculator-64” wird aus Ihrem 
Vierundsechziger ein vollwertiger Tisch- 
rechner. Ohne lästige Variablenzuwei- 
sung und Prints kann nun frisch drauflos 
kalkuliert werden: Ob Grundrechenarten, 
Zinsberechnungen oder quadratische 
Gleichungen: ”Calculator-64” macht's 


10 
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möglich. Eine frei ausgeklügelte Menue- 
Steuerung erübrigt an dieser Stelle lang- 
atmige Gebrauchsanleitungen. 


Die Schriftfarbe jeder Rechenart im Me- 
nue stimmt mit den Farben des jeweili- 
gen Bildschirms überein. 

Noch ein Tip zur Zinsberechnung: 
Durch Erhöhen der Variable U in Zeile 
2060 - z.B. von 10 auf 15 erhöht sich 
ebenfalls die Dauer der Zinsberech- 
nung. 

Das Programm ist so flexibel aufgebaut, 
daß es den jeweiligen Bedürfnissen an- 
gepaßt werden kann (-neue Rechen- 
arten). Auch als Hausaufgabenhelfer ist 
es gut zu gebrauchen. 


Compute mib 


Programmaufbau: 

11-90: Multiplizieren 

200-290: Dividieren 

300-390: Addieren 

500-680: Quadr. gl. 

1000-1800: Menue 

1190-1760: Funktionstasten Abfr. 
2000-3040: Zinsberechnung 
3050-5030: Anhang in REM Zeilen 


Variablenliste: 
Zahlenwerte: A,B,C,D,E,F,G,1,P,0,Z,Y,K 


Wiederholungsabfrage: 
J$,K$,M$,M$,0$,T$ 


Funktionst. Abfrage: W$ 
Warteschleifen: H,|,U 
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18 GOTO 198 
11 PRINT"22" :POKES3289 ‚2:POKES3281 ‚1 


12 PRINT® MULTIPLIZIEREN: *:PRINT:PRINT 
13 INPUT* ZAHL 1:*"7A : 
28 INPUT" ZAHL 2:";B 

38 PRINT" ":PRINT:SPRINT, 


48 PRINTAxB 

58 FORH=1T039889:NEXT 

68 PRINT: INPUT" NOCHMAL <J/ND*"IKS 
78 IF K$s=""THENSO 

88 IF K$="J"THENIM 

98 IF K$="N"THEN188 

GOSUB 19888 

208 PRINT"L23" :POKES3288,5:POKES3281 ,1 


285 PRINT*® DIVIDIEREN: ":PRINT:PRINT 
218 INPUT® ZAHL 1:*"3C. 

228 INPUT" ZAHL 2:*;D 

238 PRINT" :*":PRINT:IPRINT 
248 PRINTC/D 

2598 FORH=1T03888 :NEXT 

268 PRINT: INPUT" NOCHMAL <J/NI"3L$ 


278 IF L$=""THEN268 

288 IF L$="J"THEN288 

2938 IF L$="N"THENI188 

388 PRINT"LIE" :POKES3289,9:POKES3281,1 
385 PRINT" ADDIEREN: ":PRINT:SPRINT 
318 INPUT" ZAHL 1:"7E 

328 INPUT" ZAHL 2:"7F 

338 PRINT" "3PRINT:PRINT 
‚3438 PRINTE+F 

358 FORH=1T03888:NEXT 


PRINT: INPUT" 

IFi M$=" "THEN368 
IF M$=*J" THEN388 

IF M$="N"THEN198 

PRINT"2M" :POKES3288 ,4:POKE53281 ,1 
PRINT® SUBTRAHIEREN*" SPRINT:PRINT 
INPUT* ZAHL 1:3"3G j 

INPUT* ZAHL 2:"51 

PRINT* 
448 PRINTG-I 
458 FORH=1T03808:NEXT 

PRINT: INPUT*® NOCHMAL <J/NI "INS 
IF N$=**THENI698 

IF N$="J"THEN498 

IF N$="N"THENIOO . 

588 PRINT"\ZJ’ :POKES3289 ,8:POKES33281,1 


NOCHMAL <J/N?"3M$ 


":PRINT:PRINT 


1058 
10€0 
19€s 
1978 
1978 

1038 
1890 
1100 
1110 
1120 
1130 
1130 
1158 
1160 
1165 
1178 
1175 
1180 
1154 
1185 
1136 
1198 
12808 
1488 
1508 
1€08 
1708 
1718 


“2 
[4= 


759 
1768 
1779 
1773 
17590 
2008 
2010 
2920 
2838 
2048 
2059 
20655 
29069 
2070 
2038 
2u30 
5998 
s818 


PRINT 
PRINTER -——— " 
PRINT" BB I 
PRINTIBEBI Qi81=ım 1" 
PRINT" @EBII " 
PRINT"mERII 
PRINT" @BRELUG 
PRINT" EI 
PRINT"mEBIO 
PRINT"mEBIO 
PRINT"mERI| O 
PRINT"REBIIO 
PRINT" ERBE 
FRINT'EEBIS———  Difze = 
PRINT - 
PRINT“ BF4W = ZINSEN“ 
PRINT:PRINT 
PRINT® 

REM 

REM - - FUNKTIONSTASTEN - - 
REM 

GETWS 

IFWE=""THEN 1198 
IFWSSCHRSCLISSITHEN 11 


aa RECHENARTEN 4" 


Bari MULTIPLIZIEREN" 


wrSm DIVIDIEREN*® 


ADDIEREN" 


Rise 


SUBTRAHIEREN* 


) 

l 

l 

l 

I u 
ı 

l 

I EM rd | 
l “ 

QUADR. GLEICHUNG* 


BREI 739 >>> WAEHLE AUS <<< m" 


IFWE=SCHRE(134) THEN 288 
IFWS=SCHRS&S< 135) THEN 398 
IFWE=SCHRSCISE)ITHEN 498 
IFWESCHRS£137)THEN 590 


IFWE=SCHRS(1SS)THEN 2893 
IFLIE<CHRECI3SYTHEN 11908 
IFWUFICHRELISSITHEN 188 
REM 

REM - 
REM 

FRINT"":FOKES3239,9:POKES3281,1 


= ZINSBERECHNUNG: - -— 


PRINT" a2 INSBERECHNUNG ® 

PRINT" —3PRINTIPRINT 
INPUT* 29 EINGABE KAPITAL GE"; 
PRINT:PRINT” SDPAUER: 2 INSSATZ: DEINSEN: * 


PRINT:PRINTIPRINT"" 
FOR 1=1T9 18 

FOR U=:ı TO 18 
LETS=SK£C1I+U/1OOY I 
PRINT13 TAB? U; TAB155 
NEXT U 

NEXT I 
PRINT: INPUT* BNOCHMAL <J/ND"ITE 
IFTE=""THEN 39818 

IFT$="J"THEN 2008 

IFTS="N"THEN 188 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


DAS PROGRAMM KANN BELIEBIG 


ERWEITERT WERDEN. 


FALLS ANFRAGEN: 


UDO GLOECKNER 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


ULMENWEG $ 


7867? - PLUEDERHÄAUSEN 


TEL: 87181781323 ODER 85247 


BEIM RECHNEN I!!! 


"<E> CALCULATOR--64 


S85 PRINT:PRINT" GQUADR. GLEICHUNG*:PRINT:PRINT 3023 
518 PRINT" xXxX + P4X + Q = 0" saso 
515 PRINT" " 3848 
528 PRINT:PRINT:PRINT 3050 
538 INPUT" P = ";P 3068 
548 INPUT m = "0 Elurd:) 
558 PRINT:PRINT 2080 
S5E8 Y=-P/2:2=Y#Y-a 3028 
578 IF 2=8 THENG2O 4098 
588 IF 2<8 THENS48 4819 
598 PRINT" Xi = "7Y+ SaR (2) ao2a 
688 PRINT "M Xi = "zY-SaR (2) 40838 
E18 GOTO 658 aaas 
628 PRINT’E xi=xX2 = "7Y 4943 
638 GOTO 658 A 4BE8 
648 PRINT". 3XEINE REELLE LOESUNG! IW":PRINT 4078 
658 PRINTEINPUT* NOCHMAL (J/ND "308 4080 
668 IF O$=""THENGSO 4038 
678 IF O$="J"THENSBB 2038 
688 IF O$="N"THENIO® s30S 
788 REM 5218 
718 REM 5020 
728 REM - - MENUE - - =030 
738 REM 5049 
748 REM : saso 
1088 PRINT"iJ":POKES3289, 1:POKES3281,1 855 
1018 FRINT s S0E0 
1838 FRINT®. [15 777 Pe er ze READY. 
1038 PRIHT® ERBE: CALCULATOR - 64 x" 

1840 PRINT*® |} 3 1 3% ae zur ze Ze Ze ze Ze Ze ze 2 


24. Oktober ’84 


Compube mi 1 


Sie und Ihr Raumschiff sind in die Über- 
reste eines explodierten Planeten ge- 
raten. Diese Meteore, sogenannte Feuer- 
bälle, rasen nun unaufhörlich auf Sie zu. 
Steuern Sie Ihr Raumschiff durch das 
Gewimmel der vielen Gesteinsbrocken, 
damit Sie nicht untergehen. Sollte es ei- 
nem Meteor jedoch gelingen die Hülle 
Ihres Raumschiffes zu beschädigen, hilft 
Ihnen nichts mehr. Sie verglühen und zu- 
rück bleibt nur noch Staub. Also lassen 
Sie es nicht soweit kommen! 

Das Raumschiff wird am Controlport 2 
gesteuert. Mit Hilfe des Joysticks kön- 
nen Sie auch Ihre Spielstärke bestim- 
men, die aber auch im Verlauf des Spieles 
weiterhin ansteigt. 

UP = große Zahl, kleinere Geschwin- 
digkeit 

DOWN = kleine Zahl, höhere Geschwin- 
digkeit 

Wenn Sie in Spielstärke 1 länger als eine 
halbe Minute aushalten können, dann ha- 
ben Sie sich den Titel ”King of Fireballs” 
wirklich verdient. 
Viel Spaß bei 
Highscore! 


der Jagd auf den 


Variablendefinition: 

1,T: Schleifenvariablen 

V: Basisadresse des VIC 
Si: Basisadresse des SID 
‚JO: Joystickkonstante 
SC: Punktzahl 
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HI: Highscore 

GE: Beinhaltet Spieltempo 

SU: Kontroll für Datas 

K: Konstante für Inhalt des Kolli- 
sionsregisters 


K(1,2,3,4): Kontrolliert Position der 
Meteore auf der X-Achse 
Y{1,2,3,4): Kontrolliert Position der 


Meteore auf der Y-Achse 


Programmaufbau: 

10-70: Bemerkungen 

80: Unterprogramm Sprites und MC- 
Programm einlesen 

90: Festlegung der VIG-Konstante 
100-110: Spritedefinitionen in Blöcke 
unterbringen 

120-140: Farben der Sprites bestimmen, 
Multicolour-Modus einschalten 

150: Größe der Sprites bestimmen 
160-210: Startpositionen der Sprites 
bestimmen 

220-350: Anfangsbild aufbauen 

360: Geschwindigkeits-Konstante mit 
Wert laden 

370-440: Bestimmung der Spielge- 
schwindigkeit mittels Joystick und Aus- 
gabe auf das Anfangsbild 

450: MC-Routine für IRQ, Punktzahl und 
Bildschirm löschen 

460-500: Spielaufbau 

510-530: Raumergeräusch einschalten 
540: Sprites einschalten 

550-560: Konstanten für Positionen der 


Compute mib 


Meteore bestimmen 

570: Konstanten für Kollisionsregister 
festlegen 

580: Kollisionsprüfung Nr. 1 

590: Kollisionsregister löschen 

600: Punktzahl erhöhen und mit 
Highscore vergleichen 

610-620: Ausgabe der Punktzahl und 
des Highscore 

630: Geschwindigkeit erhöhen und 
überprüfen 

640: Kollisionsabfrage Nr. 2 

658: Interruptgeschwindigkeit festle- 


gen 

660-680: Sprites kontrollieren und bei 
Überlauf neu positonieren 

698: Erneuter Durchlauf 

700-710: SID-Register löschen und 
neu festlegen 

120: Sprites neu ein- und ausschalten 
730: Sprites neue Größen zuordnen 
1740-750: Position des Explosionsspri- 
tes 

760-800: Crash-Sound und Farben- 
spectrum ausgeben 

810-820: Sprites, SID-Register und Bild- 
schirm löschen 

839: Warteschleife und zurück Anfangs- 
bild 

2000-2090: Einlesen und Kontrolle der 
Daten für die MC-Routine 

2100-2240: Einlesen der Sprites 
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188 
1108 
128 
1308 
149 
159 
169 
1708 
180 
188 
208 
218 
228 
239 
249 
2s8 
260 
270 
2so 
239 
E11) 
318 
s28 
338 
348 
359 
368 
3? 
388 
338 
408 
418 
4208 
43 
448 
458 
468 
478 
488 
498 
5e8 
518 
528 
539 
548 
558 
568 
578 
539 
5938 
see 
818 
6298 
6383 
e48 
659 
668 
678 
689 
go 
788 
718 
728 
7238 
748 
758 
760 
778 
739 


808 
819 
828 


88 GOSUB2998 
39 v-53248 


‚30 


POKE2949,,13:POKE2946 ‚15 

FOR1=8T04 :POKE2841+1,14: NEXT 

REM SPRITES DEFINIEREN 
POKEV+28,62:POKEV +37 ,7:POKEVY+38, 1!POKEV+39,15 
FOR1T=48T044 :POKEV+1,8: NEXT 

POKEV+23 ,62:POKEV+29,62 

POKEY,155:POKEV+1,158 

FOKEV+2,95:POKEV+3,178 

POKEV +4 ‚48: POKEV+5 ,248 
POKEV+8,188:POKEV+7 ‚200 
POKEV+8 ‚289: POKEV+3,88 
POKEV+18,68:POKEV+11,58 

POKEV+32,B8:POKEV+33,0 

PRINT " OSpripge u na3m 2 sa 22a By man am 3 % 


PRINT '"IBEBIN = ae 30 Bau 2au232m 4m 2m" 
PRINT'EBERBIG a am 3 ea u 4 | "as 3m 2 u" 
PRINT"I@BBIG = yaegagwu am agezaaaeaegeam 38 am 
PRINT'"ERBBIG = au a wusw a “u.ä Bsasıaaa ma 23 m" 
PRINTTAB(32)'4 ®" 

PRINT "BREI: u" 

'PRINT"RBBRBRMICC) 1984 BY EANDREAS BACHLER" 


PRINT" WEKZBRBEBEHH IGHSCORE ER" 5 INTCHI) 
PRINT" EIKDRBBEBBE AST SCORERRI’ 5 INTCSC) 
PRINT 'EIERBBRBBISSELECT LEVEL: " 
PRINT'IERBREREEREIPRESS FIRE TO START!" 
PRINT '"IBBRRRREKE | 
GE=27 

JO=PEEK (56320) 

IF <JOAND 1) =8THENGE =GE +3 

IF < JOANDE ) =BTHENGE=GE -3 

IF <JOAND 16 ) =D THENGOTO458 
IFGE<STHENGE=3 

IFGE J27THENGE =27 


FORI1=1T0188:NEXT:GOTO37® 
SYS49152:PRINT""7:SC=9 


FOR1=1T024: PRINTTAR 323" BOB" SNERT 

PRINT"S BUSDSPRDER DER 

PRINT RBERBRRRBIISCORE : " 

PRINT" er 1 1 HIGH: ">; 

PRINT" TAB(34) " = == NIE" BDA ER KDEREE SIEB ER EEE. LES BL == * 


POKES54272,221:POKES4273,4 
POKES4296,18:POKES4278,248 
POKE54276,17 

POKEV+21,63 
RClI=VHr2:YCL)SVH3 ER C2)=V+4:Yl2)=V+45 
REIHI=VHEEYCH)SVH7 ER CI)=VHBEYC4)=Vr9 
K=PEEK (V+38) 

IFK=30RK =SORK =90RK = 170RK =33 THEN79O 
POKEY+38,8° 
SC=SC+,3:1IFSC>HITHENHI=SC 
ee INT<SC)Y 
PRINT" Spike DATEN 1 . 
GE=GE-.84: IFGE? IBOTHENGE=18 
IFK=30RK=S0RK=SORK = 17ORK=33THEN?89 
POKES68325,1INT(GE) 

FOR1=1T04 
IFPEEK(CYCIIIF2ZSQBTHENPOKEX CI), INTSRND(1)x255) 
NEXTI 

soTo5?7a 
S1-54272:FOR1=8T024:POKESI+I,8:NEXT 
POKES1+5,31:POKESI+6,15:POKESI+4,129 
POKEV+Z1,PEEK(V+21) +63 
POKEV+23,126:POKEV+29,126 
POKEV+12,PEEK(V)I-1® 

POKEVY+13,FEEK (V+1):POKEV+28,126 


"ZINTCHID; 


FOR1=15TOQSTEP-.Z 838 FORI=1T01598:NEKT:GOTO 139 
POKESI+24,1:POKESI,188:POKESI+1,5 2888 REM * EINLESEN DER MC-ROUTINE x 
POKEV+37,1NT{RND<1)%*15+1) 2818 PRINT”LI" 

FOKEV+38,1INT<RND<C1) #15 +1) 2028 FORI=8T06$:READT:SU=SU+T 

NERTI 2838 POKE49152+1,T:NEXTI 

POKEV+21,8:PRINT"iI" . 2440 READT: IFSU<S>TTHENPRINT"FEHLER IN DATAS!":END 
FOR1=8T024:POKESI+1,B8:NEXT 2058 DATA128,163,13,141,208,3,169,192,141,21,3,88,96 
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2069 
2978 
zasa 
2038 


enrmnme 
"0 151 5 


DATA2SS,3,208,238,5,2093,238,7,208,238,9,208,233,11,2938,173,0,228,201 
DATA123,248,7,201,119,249,16,76,49,234,173,0,208,2901,50,240,3,206,8 
nATA2A8.76.49,234 ,173,0,208,201,255,240,3,233,0,208.76,493,234,8 
DATA88S73:REM KONTROLLSUMME 


2198 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
21809 
2198 
2208 
2218 
2228 
2238 


2248 RETURN 


Disk Manager 


Wer kennt nicht das Problem, daß man 
mal wieder seine Disketten ordnen 
müßte. Hier was Löschen, da was Umbe- 
nennen oder evt. Verknüpfen. Mal soll die 
ID oder Diskname geändert werden, viel- 
leicht hat man sogar ein Maschinenpro- 
gramm auf Disk und weiß den Startwert 
des Programmes nicht mehr! 

Nun bei all diesen Kleinigkeiten soll Ih- 
nen der Disk-Manager nun eine Hilfe 
sein. 

Was das Programm nun im einzelnen er- 
möglicht, möchte ich an dieser Stelle 
nicht aufführen, dies können Sie dem Li- 
sting oder dem HRDCPY entnehmen. Ei- 
nige Menuepunkte möchte ich allerdings 
etwas näher erläutern. Da wäre zuerst 
der Menuepunkt 6 Diskname und ID än- 
dern. Der Diskettenname und die ID be- 
finden sich auf Spur 18 Sektor 0. Hierbei 
werden für den Namen die Bytes 144- 
161 und für die ID die Bytes 162 und 163 
belegt. 

Diese Bytes werden nun mit Hilfe des 
Block-Read Befehls (Ul) in den Puffer- 
speicher der Floppy gelesen. Welche 
Bytes eingelesen werden wir durch den 
Befehl (B-P)= Buffer-Pointer bestimmt. 
Der im Pufferspeicher befindliche Name 
und die ID können wir nun ändern und an- 
schließend wieder mit dem Block-Write 
(U2) zurückschreiben. Nachdem dies ge- 
schehen ist wird die Diskette noch initia- 
lisiert, sodaß wir sofort mit dieser ar- 
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REM x EINLESEN DER SPRITES %* 

FOR 1=8T062:READT:POKES32+1,T:NEXT 
DATA®,8,8,0,43,0,0,98,8,0,43,8,8,120,8,12,204,192,12,132,192 
DATA1S,183,152,31,183,224,49,182,93,43,182,48,493,134,498 
DATAS1,135,112,62,205,2498,60,204,248,8,1208,0,0,132,8 
DATA1,254,8,0,48,98,8,8,0,0,0,8 

FOR 1=8T062:READT:POKE8SIE+1,T:NEXT 
DATAB,8,8,8,16,0,8,152,8,8,152,8,8,152,8,8,152,8,2,154,8,2,386,8 
DATR2,36,0,2,86,0,2,86,0,9,117,128,9,117,128,3,117,128,10,86,128 
DATA2,86,0,2,154,8,2,178,80,8,168,0,0,0,8,8,0,8 
FOR 1=8T062:READT:POKE3S6B+I,T:NEXT 
DATAB,0,8,8,8,0,98,60,0,0,255,0,3,87,248,15,89,124,13,169,152 
DATA15,99,124,3,893,252,3,106,112,13,153,156,15,213,112,0,247,182 
DATA ,63,9,0,0,8,0,0,0,0,8,8,0,8,08,8,0,8,8,0,08,8,8,8:REM 22 STUECK 


für den Commodore 64 


beiten können. 
Menuepunkt 7 Startadresse eines 
Files: 

Wir eröffnen mit dem eingegebenen Na- 
men eine sequentielle Programmdatei. 
Dann lesen wir die ersten beiden Bytes 
ein und rechnen diese entsprechend um. 
Da die ersten beiden Bytes einer Datei 
die Anfangsadresse beinhalten, kann 
man davon ausgehen, daß es sich hierbei 
um die Startadresse handelt. 


Menuepunkt 8 Delete retten: 

Das Byte Null des Fileeintrages enthält 
den Filetyp. Wurde nun ein File mit 
Scratch gelöscht, so wird dieses Byte auf 
Null gesetzt. Das Programm kehrt dies 
nun wieder um und schreibt den ent- 
sprechenden Filetyp neu. Aus diesem 
Grunde ist es auch nötig, den Filetyp an- 
zugeben. Je nachdem wo das File ge- 
speichert ist, kann es etwas dauern bis 
das File gefunden wird. 


Menue 2 Punkt 1: 

Das sechste Bit eines Fileeintrages 
kennzeichnet ein geschütztes File. Ist 
das Bit gesetzt, so kann das File nicht 
mehr gelöscht werden. Ein geschützter 
File wird im Directory durch < gekenn- 
zeichnet. Entsprechend Ihrer Wahl Punkt 
1 oder 2 setzt oder löscht das Programm 
nun dieses Bit. 


Compute mib 


Verwendete Stringvariablen: 

wa$: Get Abfrage Entscheidungen 
dn$, nf$, an$: Eingegebener Dateiname 
id$: Eingegebene ID 

a$, b$, x$, y$: Get Abfrage Disk 


Verwendete Variablen: 
fl, af: Hilfsvariablen 
I, x, y, au: Laufvariablen in Schleifen 


Programmaufbau: 

100-260: Menue 1 und Abfrage 
270-380: Directory einlesen 
400-470: Formatieren 

490-540: File(s) löschen 

560-630: Rename File(s) 

640-750: Verknüpfen 

770-1010: Diskname ändern 
1030-1140: Startadresse 
1160-1470: Delete wiederherstellen 
1480-1580: Menue 2 und Abfrage 
1620-1830: File(s) schützen 
1850-2050: File(s) freigeben 
2060-2370: File suchen 
2380-2500: Freie Blocks 
2520-2570: Validate 

2590-2620: Initialize 

2640-2700: Ende 

29800-29860: Fehlerkanal abfragen 
30000-30040: Maschinenroutine ein- 
poken 
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GOSUEZABBE 
<=" DISK-MÄHÄAGER WIN-SUFT" 
eI=ezst" an Ki 
ZE=CHREE147 Ir ZE 

a POKES3254,6:FÜHES3231, 0: PRINTZ$E; 

118 SYSAU, 28,1. "MEHLE 1" :FRIMTGS:GOSLUEZISHH 

1268 SYSAU,19.8, "15 DIRECTORY 

153 PRIHTTAB(155"2) FORMATIEREN 


er O0 C 
Gcaamın 


FRINT:PRINTGRSRO$STARCZ) "HEUER HAME © "5: IMFUT D# 


135 PRINTTARBL1S5"3> 5SCHEATCH FILE(S> 238 IFLEHÜDES=1ETHENFIE 

158 FRIHTTARC1Q5"4> RENAME FILEXS) >56 FÜRT=SLENEDEI+LTOLS: DE=SDE+HCHRECIEN) CHESTI 

168 FRINTTAE@103"5> VERKNUEFFEN 215 FEINT:FRINTTABLEIGRERÖF"NEUE ID : "5#5 : INPUT ID# 
178 FRINTTABE1S5"55 NAME U. ID AEHDERH 32a IFLEHSTDESSFZTHENFIE 

1535 PRINTTAEL15>"75 STARTADRESSE DES PROGRAMMS] 333 OH&SDE+ES+CH+ DE 

138 PRIHTTAES18})"25 DELETE FILE RETTEN >48 FRIMT#13,"E-F 3 144" 

286 FRINTTAB(13>"2: MENLE 2 3539 FREIHNT#2. DH$ 

zia FRINTTABC1EH"B) PROGRAMM EHLDE 228 PEIHT#1S,"UE RO LE Be" 


225 PRIHTCHRE2B):STSAU, 19,28, "IHRE HAHL" 
238 GETURS$: IFLUAF=""THEN23S 

243 IFWURF=CHRE (45) THENZEIE 

3 IFURSSCHRECIEHORURESCHREUS?ITHENZ3G 

3 WA=Y/ALCURF>:OHUA GOTO 278.408, 438.568, 640,778, 1939,11658, 1450, 2548 
8 PRINTZ#; :G0SUB29398 

a FEIMTCHREC3U3:SYSAU.23, 1," ADIRECTORT" FRINTCHRSC1SBI: IEe""A=9 
a ÖFEH1S,8.15. "a" OFEH2.2.8, "E" 
5 FÜRIT=BTI12:GET#2,A$, ES: NEXT 
8 GET#2,R$,A$: IFSTTHENCLOSE2:CLOSE15:GOT0375 
3 GET#2,A$,R$ 

5 GET#2,A#: IFAt=""THEN31O 
2] 

15) 

1) 

oe) 

[a] 

5 

{>} 


IFA$SSSCHR$C34) THEN32O 

FL=9: 1$="":Asf+l 

FÜRI=ATO15:GET#2, A$: IFRSCHCHRECS4IANDFL=ÖTHENISCAISIELAI+ASHEXT:GOTO3SO 
FL=1:NEXT 

IFINTCAFZI=AFZTHENFRINT :FRINTCHRECLSEIIECA-LITABEEBI ISCH); 

GOT0329 

IFACZTHENPRINTISCA) 

a I$ECA)="":NEXT 

228 PRINTCHR$(SI:STSAU. 18,23. "EITTE TASTE DRUECKEN" :POKELIB,B: WAIT198, 1:60T0108 
408 PRINTZS; :GOSUBZIB0: SVSAU. 28,1, ROSGRE"FÜRMATIEREN": 

405 SYSAU,18.4,45"7 = MENDE 1" 

418 STSAU.18,8, 5%" DISK NAME : "5: INPUT DN$: IFDN$S=CHR$CI4>THENIOR 

424 PRINT:FRINTTAE« 18)" DISK ID : "; INPUT ID$: IFID$CH""THENIDE=", "+1D$ 

438 DN$S=DNF+ID$ 

448 OFEN1,8, 15, "N: "+DN$ 

455 CLOSE1:GOSUB2IBA8 

4628 SWSAU, 18,15, 6R$"DISKETTE FÜRMARTIERT" 

476 FORI=8T01884 : NEXT: GOT0198 


438. FRIHTZE; :GOSUE2I308 : 3Y SAU, 28.1: GREROF" SCRATCH" 

518 5T5AU.18.4,4U£"r = MEHUE 1" 

328 PRINT:PRIHTTAELISIGS"FILE HAME ©": IMPUT DN$: IFDNESICHREL 345 THENI OO 
538 ÖPEN1,3,15,. "3: "+DN$ 

S4g CLOSEL:GOSUEZISAS:GOTD1A 


un, 


Se PEIMTZE;:605 za 

Sr8 SYSAl, 25.1. GRESRIE"RENAME FILE" :STSAUN, GNS, UE"Tt = MEHUE 1" 

28 FEINT:PRINTTAE©1G5G$"NEUER FILENAME : "5: IHPUT NF$: IFNFSSCHREES4) THEN1OM 
539 FRINT:FREIHTTAECIBN"ÄLTER FILENAHME : "3: IMPUT Ah$ 

&38 ÖFEHL,5,15, "FR: "+HFE+"="+AN& 

518 Z75Al, 12. 10. GREHFE" = "AN: 

EZ FORI= STOSS: HEHTIELÖSEL:GOTOLEG 


545 FRINTZE: GOSLE23FSB8 

E50 SPSAU, 23, 1, GR$RÖF"VERKHUEFFEH" 

SYSAl,12,3.4#"t = MEHNUE 1" 

FRIHT:FREIHTGETARE1O5"HELER FILENAME i : INPUT HF$: IFNF$=CHR$&K345 THEN1OO 
FEIHNT:PREINTTAEX1S5H"FILE NAME NR.A : "INPUT FR& 

FEINT:FEINTTABE1O5"FILE NAME NRZ: z :IMPLUT FE$: IFFEF=CHREE13JTHEHFBSS"" 
FRIHT:PRIHTTAEC1AS "FILE HAME HRS: R :IHFUT FC$: IFFÜF=CHREC13H THENFLE="" 
FEINT:FEINTTABCISS"FILE MAME HR.4 : "3: IMFUT FDS: IFFDE=SCHRECLSITHEHFDES"" 
FREIHT:PRINT" "HF&" = "FA&" + "FBE" + page + "FD& 

IFFEZ=""ANDFÖ&="" THEH?S@ 

SFEH1,S,15. "LE "+NF$+"="+FAE:CLOSE1'GOSUB29588 : RETURH 
DRENLLESEFENERRISTHERSEN AFESE ERS EDS ELSE !GOTO1EO 


FRINTZE: GOSUEEI238 

Staa, 22.1, GR&ROE"N.+ID AEND." 

Sr "SA 1, 3,4£"r = MIEHNUE j" 

FEINT:PEIHTTAEZZIGRF"DISKETTE EINLEGEN UHD TASTE DEUECKEH" 
GETURS: IFUAF="" THENS1A 

IFUAS=CHRE 0945 THENLAR 

ÖFEH155 5:15: QFEN3,S, 3, "#" 

FRINT#15,'"U1 2 0 15 m" 

PRIHMT#15."E-F 3 144" 

FORI=S3T013:GET#2. A# D#=DE+A$:NEATI 

GET#3.B#.C#.E1#,E2#: ID$=El$+E2$ 

FRINT:FRINTTABLZIGRERÖF" DISENAME : "5: FRINTGSDE" "GREROE" ID: ";:PRINTGSID 
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NIT EINE OUT AB GEN I 
EIGENER SG 


So ON NIIT DIN N NR I I 


1908 
1818 


1838 
1948 
1956 
1869 
1978 
1838 
1898 
1168 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1180 
1198 
1208 
1218 
12289 
1238 
1248 
1259 
1269 
1265 
1278 
1288 
1238 
1308 
1318 
1328 
1325 
1338 
1348 
1358 
13658 
1378 
1338 
1338 
1408 
1419 
1428 
1439 
1443 
1458 
1450 
1479 
1438 
1438 
1508 
1518 
1523 
1533 
1549 
1558 
1564 
1579 
1559 
1539 
1504 
1618 
1529 
1538 
1549 
1658 
1568 
1578 
1639 
16598 
1788 
1718 
1728 
1738 
1748 
1758 
1769 
1778 
1759 
1738 
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958 PRINT#15,"U2 3 8 18 8" 
376 CLOSE3 

988 PRINT#15,"1":CLOSE1S 
998 PRINT: PRINT: PRINTGSTAB“183"DISKETTE GERENDERT" 


1828 : 


PRINT: PRINTWETABC9I"BITTE TASTE DRUECKEN" :EI$="":E2E="" R$=""DE="" 
ID$="":POKE198, 6:WAIT198,1:G0T01088 


PRINTZ$:B0OSUB23398 : 5YSAU, 25, 1, 5R$ROF" STARTADRESSE" 
SYSAU,18.3.4$"T = MENUE:.1" 

PRINT: PRINTTABC 18358" PRÜGRAMMNAME : "5: INPUT PN$: IFPNS=CHREC9I4 > THEN19G 
OPEN1,8,3, PN$+",P,R" 
GET#1,%$: IFA$=" "THENÄ$=CHR$ CO) 

LESASC(CH$) 

GET#1.%$: IFX$=""THENA$S=CHRS CH) 

HE=ASC(H$7#256 

AD=HB+LE : CLOSE1:PN$="" 

SYSAU, 18,18: 5R$"STARTADRESSE = ";AD 
PRINT:PRINTTAB<1O)WE" BITTE TASTE DRUECKEN" 
POKE198,9:WAIT198, 1:605UB29386:G0T0108 


PRINTZ$: GOSUBZ23S88 

SYSAU, 23: 1, 6R$SROF"DEL RETTEN" 

SYSAU,12,3,4$"T = MENUE 1" 

SYSAU.18,5.6$"FILE NAME : "5 INPUT DN$: IFDN$=CHR$C94)THENI88 
L=LENCDN$> : IFLCLSTHENDN$=DNS+CHR$C 169) :GOTO1208 

STSAU, 18,7, "SER, PRG,USR,REL" 

PRINTTARBSIG)> "1 23 4" 

PRINT:PRINTTAB<16>"FILE TYP : "3:INPUT FT: IFFT<LORFT>4THEN1239 
FT$=SCHR$C123+FT> :OPEN1,8,15:0PEN2,8,2,"#" 

AT$SSCHREC13) :AT=18:Q5$=CHR$K 13: 05=1 

FRINT#1."U1 2 8 18 1" 

GET#2, NT$.NS$:DI$="":F=6 

IFNT$=""THENNT$=CHR$ CO) 

IFNS$=""THENNS$=CHR$CO) 

NT=ASCCNTEI:NS=ASCCNS$) 
FORI=8T0253:GET#2, 1$: IFI$=""THENIS=CHRE$ CD) 

DI$=DI#+I$:NEATI 

FORI=1T0237: IFMID$CDIS, 1, LEI=DNSTHENP=I:F=1: 12255 

NEATI 

IFF<>OTHEN1338 

IFNT=SANDNS=2SSTHENSTSAU, 18,15, WS" FILE NICHT VORHANDEN" :GOTU1450 
AT$=HT$:AT=NT :Q5$=NS$ : QS=NS 

PRINT#1, "U1"32;85NT;NS 

GOTOL12ES 


PRINT#Z.NT$:NS$F: ACH 
FPRINT#1."U2" 2; 8; ATIRS 

GOSUBZ2IE38 

SYSAU,18.20.WE"EITTE TASTE DRUECKEN" 
PÜKE138, 8:WAIT198, 1:CLOSE1:CLÜSE2:GOTO188 


PRINTZ$:GOSUB29898 : SYSAU, 28, 1, GR$RO$F"MENLIE 2" 
SYSAU,18,8,6$"1 = MENUE 1" 

FRINTTAE<10>"2 = FILE?S> SCHUETZEN" 
PRINTTAE<185"3 = FILE(S> FREIGEBEN" 
PRINTTAE<185"4 = ELOCKS FREE" 

PRINTTRE<15"5 = WALIDATE"" 

PRINTTHE<19>"6 INITIALIZE" 

PRINTTAB«185"7 = PRÜGRAMKENDE" 

HA£="": GETWA# : IFUR$=""THEN1SSO 
HA=Y/ALCHAS3 : IFWA<LÜRWA>TTHEN1 554 

ONMA GOTUO 1606, 1528, 1850. 2359, 2520, 259%, 2640 


GOTÜI1BA 


PRIHTZE: GOSUBZ2I83083 : STSAU, 28,1, GRSROF"SCHUETZEN" 

SYSRAUl. 13,4, 4$"t = MENUE 2" 

SFSALU.18.6.6$"FILE NAME : ";: INPUT DN$: IFDNS=CHR$C94) THEN1489 
IFLEN<DN$JS>16THENPRINT :PRINTTABC1O>MS" NAME ZU LANG"PRINTG$:GOTO1648 
GOSUJB23583 

IFAF=1THEN1718 

STSAL, 12,28. W$"FILE NICHT GEFUNDEN" 

PRINT:PRINTTARS12>"BITTE TASET DRUECKEN" 

FOKE193.8:WAIT198, 1:G60T01438 

PRINT#15. "B-P"; 2, 2%32+2 

GET#2,%$: IF#$=""THEHR$=CHRE CHI 

FT=SASCKA3) 

IFÄiFT AHD 64>=GTHEN177& 

SYSAU,?,29.WU$"FILE IST BEREITS GESCHUETZT" :CLOSE2:CLOSE15 

PRINT :PRINTTABC18>"BITTE TASTE DRUECKEN" :POKE193,8:WAIT198,1:60T01486 
FT=(FT OR &4) 

FRINT#15, "E-P"5 2: 4#32+2 

FRINT#2. CHRS$SFT3; 


Compute mib 


X1$=LEFT$CDI$,P-4) E5 
Y2$=MID$CDI$,P-2) 

KC$=KLSHFTSHH2E 

PRINT#1,"E-P 2 9 8" 
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11508 
11518 
1220 
1238 


1558 


13589 5% 


1278 
1356 
1538 
1358 
1318 
13283 
1335 
1348 
1358 
19E4 
1378 
1324 
1338 
2508 
2918 
zaza 
20308 
20948 
2359 
2868 
2075 
2984 
‚zasa 
2108 
‚2118 
2128 
2138 
2144 
2158 
2168 


2178 5= 


2189 
2199 
2203 


2338 
22340 
2354 
223658 
2378 
2350 
2338 
2458 5 
24168 
2420 
2439 
2458 
2468 
2478 
2458 
24 
za 5 
2318 


Po TS RIP D R P AN CH Fü N N fc Al Di 


ch 


JIL-UNTUNE 


FREINT#15."B-P")2;0 

FRINT#15. "112"5258; TT5$5 

CLOSEZ:CLOSE1S:SYSAU, 19, 20, GRSRÜS" FILE GESCHUETZT " 
PRINT:FRINTTABK1SIUS"BITTF TASTE DRUECKEN" :POKE198,8:WAIT198,1:G0T01489 
19349 : 


PRINTZ$:GÜSUB29398 : SYSAU, 28, 1, GR$RÜF"FREIGEBEN" 
SAU,19,4,4$"t = MENUE 2" . 
SYSAU,18.6,6$"FILE NAME : "5: INPUT DNS: IFDN$=SCHRSTI4)THEN1438 
GUSUR2A5A 

IFAF=1THEN1328 

SYSAU, 10.20, M$"FILE NICHT GEFUNDEN" :CLOSEZ:CLOSE15 
PRINT:PRINTTHBE<18)"BITTE "TASTE DRUECKEN" :POKE138,8:WAITL3EB, 1:G0T01459 
PRINT#15, "B-P"2:843242 3 

GET#2,X$: IF%$=" "THENKS=CHRE CHI 

FT=SASCKK$):IFCFT AND 64)=54THEN1978 

SPYSAU.5,28,H$"FILE IST SCHON FREIGEGEBEN" :CLOSE2:CLOSE1S 
PRINT:PRINTTAB<C1@)"EITTE TASTE DRUECKEN" :POKE198,6:WAIT198,1:00T01480 
FT=(FT AND 255-64) 

PRINT#15, "B-P" 2: K#32+2 

FRINT#2,CHRSCFT); 

FRINT#15, "E-P" 258 

PRINT#15, "U2":258; TT585 

CLOSE2:CLOSE1S 

SYSAU, 10,28. GR$ROS" FILE FREIGEGEBEN " 

PRINT:PRINTTABC1B>W$"BITTE TASTE DRUECKEN" :CLOSE2:CLOSEI1S:POKE138.8 
WAIT13S3.1:G0T01488 

OPEN15, 8, 15. "18" :OPEH2, 8,2, "#" 2218 IFASCCK$)=BTHENZ2310 
PRINT#15, "U1":2505 1858 2228 FRINT#15. "E-P" 25483245 
PRINT#15. "B-P";2;0 2239 FF$="" 

PRINT#15, "U2" 25951856 2243 FORF=9TO15 
T=18:$=1:TT=18:99=1 2250 GET#2.%$: IFx$=""THENX$=CHREGD) 
PRINT#15, "U1"3259: 158 2268 IFASCCHS)=LEATHENZ223B 
TT=T:55=$ 2278 FF$=FF$+%$ 

PRINT#15, "B-P";2;0 2223 NEXT 

GET#2,8$: IF%$=""THENXSSCHR$ (8) 2238 IFFGTHEN2310 

TSASCCK$) 2308 IFDN$=FF$THENAF=1:G0702358 
GET#2, K$IFX$=""THENZ$SCHRSCH) 2319 NEXTK 

ASCCR$) 2328 IFT<>OTHEN2118 

FÜRZ=8TO? 

PRINT#15, "E-P" i2:2%32+2 

GET#2, K$: IFX$=""THENX$=CHR$SCHY 


LLOSE2:CLÖSE1S5 
IFFG=STHEHNSYTSAU, 18,28, U#"FILE NICHT GEFUNDEN” 
RETURN TARCIBITRITTE TASTE DRLUEICKEN" :POKE193,6:WHAIT13S.1:60T01438 


PRINTZS: GOSLB2I298 
ie SAU, 22,1, GR$RÜF"FREE BLOCKS" 
YSAl,19.5,5$"EINEN MOMENT GEDULD" 
OPENI.8, 15. "10" 
FRINT#1. "M-R"CHRECZSASCHRECHN 
GET#1,%$: IF%$=" "THENS$S=SCHRECHS 
FRINT#1. "M-R"CHR$CZSZICHREL2) 
GET#1. Y$: IFr$=""THENYESCHR$ CH) 
FESASCCHEIHTZIEFRSCE VE) 
FRINT:FRINTTAB<C1Q>"FREE BLOCKS = ";FB 
A GI>SLBZF202 
Sal, 18,28, W£"BITTE THSTE DRUECKER" POKE133,9:WAIT122.1:GOTU1438 


5 PRINTZE: SOSUFE33IE 


STSAl. 23.1. a. 


3 ÖFEH1,5,15, "Y" :FORI=S@TO1BBG: NEST: CLOSE1:GOSUBZIE38 


GOT01458 


FREINTZ$: 50329205 
STSAl, 28,1, GREROF"IHITIALIZE" 
OPENL. 8.15, "1": FORI=8T01898 : NEXT: CLOSE1:GUSUB2I838 


GITO1434 2639 575551 

5 : zroa ELmE 

FEINTZE:GOSUBZ9I309 : ST SAU, 23, 1, 5E$RUE"E N DE" 23592 OFEH13.3.15:POKE211.1:POKE214, 1:$7558732 
SFSASIEME"BIST DU SICHER" 23318 GET#15,F$:FF$=FF&+F&: IFSTCYEATHENZIB1O 
GETWAE: IFHAF=""THENZSSE 23528 FEIHTGERÜFFFE 

IFWA$<CH "N" ANDWASZ>" T"ANDUASSH"V"THENZESO Sa IFLEFT$CFFE, 1NSSCHR$L42HTHEN29I3SB 
IFURS="H"THENLOS 23248 CLOSE15:FF$="":RETURH 


YSAl.19,23,WS"BITTE TASTE DRUECKEN":FOKE135, 8:WAIT138, 1° CLOSE1S:FF$="" 
600160 


32669 AU=43152:FORI=SAUTORU+25: READG: FOKEI.G:NEAT 

20018 DATA32.253.174.32,.158,183, 138, 72,32, 253,174,32,158,183 
Sadz5 DATA104, 163, 24, 32,248, 255,32, 253,174, 76,164,170 

Sacza DIMI$C150) :G$=CHR$C 153): GR$= CHR$C 395 :RO$=CHR$C133 :WS=CHR$CS) 
>0648 RETURN 
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für den Commodore 64 


% ' 5 DEE Ze: 8 = BR # 2 Si 
‚Horror auf Ihrem Computer ermöglicht dieses Programm, dessen 

ldee direkt aus dem Kinoschocker "THE FOG” — Der Nebel des 
Grauens” übernommen wurde. 


In diesem Film wurde eine amerikani- 
sche Küstenstadt genau 700 Jahre 
nachdem die Einwohner des Dorfes ein 
Schiff mit 40 Seeleuten untergehen 
ließen, von einem unheimlichen Nebel 
heimgesucht, welcher sich daran macht, 
die Zahl der Dorfbewohner um 9 Seelen 
zu dezimieren. Neun Personen deshalb, 
weil an der damaligen Aktion neun Men- 
schen schuld waren. Der einzige gei- 
stersichere Ort im Dorf ist die alte Kirche, 
denn dort ist das Gold der Schiffsbesat- 
zung versteckt. 

Geleiten Sie also mit dem Joystick in Port 
2 die 9 auf dem Bildschirm befindlichen 
Männchen über die Straßen des kleinen 
Ortes und bringen Sie sie sicher in das 
heilige Haus. Hat der Nebel 6 Männer er- 
wischt, so ist das Spiel vorbei und eine 
Trauermelodie erklingt. 

Das Spiel hat einen tollen Horrorsound 
und eine gut gelungene Grafik. Angeneh- 
mes Grußeln beim Spiell 


Variablenliste: 

SI: Adresse des SID 

V: Adresse des VIC 

FP: Neue Adresse des Bildschirm- 
Speichers 

LV: Level und Schrittweite des Nebels 
SC: Punkte im jeweiligen Level 
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TS: Gesamtpunktzahl 

BS: Bildschirmspeicherzelle der geret- 
teten Figuren 

GR: Bildschirmspeicherzelle der toten 
Figuren 

X2: X-Koordinate der Figur 

Y2: Y-Koordinate der Figur 

Al: X-Koordinate des Nebels 

Y1: Y-Koordinate des Nebels 

FS: Farbspeicheradresse 

J: Adresse des Joystickports 2 


FOR-NEXT-Laufvariablen: 
N, JJ, KK, AA, A, BB, LW, Z, ZZ 


Laufvariablen für Felder: 

A,B,H 

Variablen in Verbindung mit READ: 
W, Q,XX 

Stringvariablen: 

G$ bzw. F$ für GET-Eingaben 

Für Grafik: 

H$: Aufbau eines Hauses 

B$: Aufbau eines Baumes 


Variablenfelder: 

P(.): Adressen der Figuren vor 
Häusern 

N({.): Variablen für Melodie 

NI[.): Variablen für Melodie 

Ki(.): X-Standkoordinaten des Sprites 


Compube mik 


den 


G 


vor den Häusern 
K2(.): Y-Standkoordinaten des Sprites 
vor den Häusern 


Funktionen: 

FN PE{X2): Aktuelle Position des Figur- 
Sprites im normalen Bildschirmsystem 
(40x25 Zeichen) 


Programmaufbau: 

160-230: Anspringen der Unterpro- 
gramme 

260-360: Einlesen der Spritedaten 
380-1410: Aufbau des Bildschirms 
1430-1490: Aufbau der Randmaske 
1520-1760: Spielkern (Abfragen & 
Bewegung) 

1780-1860: Figur ist in der Kirche 
1910-2220: Ende des Spieles 
2240-2300: Figur ist vom Nebel erfaßt 
worden 

2320-2380: Pfeile zeigen auf den Aus- 
gangspunkt 

2400-2660: Vorstellung (Titelbild) 
2690-2750: Abfrage der Funktionsta- 
sten 

2780-3230: Datas 

3270: SID wird auf 0 gestellt 
3310-3730: Soundroutinen 

3760-4080: Erklärung des Spiels 
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28 

39 

48 

59 

[7] 

7-8 

80 

98 

1909 
118 
129 
138 
149 
159 
168 
178 
1898 
198 
288 
2198 
2298 
238 
248 
259 
269 
2798 
288 
298 
338 
3198 
328 
338 
349 
3598 
368 
378 
388 
398 
‚489 
418 
428 
438 
448 
458 
- 468 
478 
439 
438 
52998 
518 
528 
538 
548 
558 
569 
57@ 
588 
598 
6998 
6818 
628 
638 
849 
858 
E68 
678 
838 
698 
788 
7ı0 
728 
738 
748 
7598 
"768 
770 
788 
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18 REM xrr2 Ku sKE8 00% 


REM x*% THE FOG #+% 
REM **ABAENDERUNG X % 
REM »%x%* DES ”xr% 
REM xZEICHENSATZES%* 
REM 33 ak aka 


POKES3281,6:POKES3289,6 
° 
REM UMSCHRE IBEN AN NEUE ADRESSE 
POKES6 ,67:CLR 
DATA120,169,51,133,1,169,8,133,95 
DATA133,99,133,88,169,288,133,96,169 
DATA112,133,89,169,224,133,91,32,191 
DATA163,169,55,133,1,88,96 
FORA=832T0832 +33 
READQ :POKEA,Q:NEXT 
SsYs832 
POKES3272 ,25:POKES6576,,6:POKE648,68 


PRINTABM BC 
PRINT'BD PQOR 
PRINT" " - © 
REM EINLESEN DER ZEI 
FORDA=1T082 

READZ :%=24576+8%*2 
FORN=8TO? 

READQ :POKEX +N,G 
NEXTN,DA 


DATA64,69,126,99,126,698,36,69,8 
DATASS,68, 126 ,255,255,255,255,126,68 
DATASS ,24,24,24,24,24,24,68,126 


REM DATAS HAUS 
DATAS?,1,1,1,15,31,63,127,255 


D 
Ss 
1 


n4m 


DATAS3,128,128,128,255,255,255,255,255 


DATA69,8,8,8,240,248 ,252 ‚254,255 


DATA7B ‚255,255 ,255,255,255,255,195,195 
DATA71,255,193,193,193,255,255,193,193 
DATA?2,255,195,195,195,255,255,195,195 


DATA?73,195,283,195,195,9,8,0,8 
DATA74,193,255,255,255,0,9,9,9 
DATA?7S,195,255,255,255,0,8,98,8 
E 

REM DATAS FIGUR 
DATA76,24,36,24,68,98,69,66,66 
REM DATAS KIRCHE 
DATA?7?,8,9,8,32,112,32,32,112 
DATA78,8,1,3,7,7,7,7,7 

DATA79 ,248 ,252,222,143,7,143,223,235 
DATA89,8,8,9,9,255,255,255,255 
DATA81,8,8,8,8,192,224,249,248 
DATA32 ,7,7,86,5,5,5,5,53 


DATA83,143,119,251,253,179,253,253,253 
DATAS4 ‚255 ,221,1368,136,136,136,136,255 
DATASS ,248,216,136,136,136,136,136,248 


REM DATAS WELLEN 
DATA1983,68,34,34,17,17,34,34,68 


REM DATAS TROPFEN 
DATA184,16,24,60,68,126,126,126,68 


REM DATAS INITIALIEN 

DATA8S ,8,15,24,48,32,55,24,0 
DATA87,8,8,8,56,204,183,57,08 
DATAS8,8,24,48,108,217,191,229,8 
DATASI,0,224 ,96,204,29,128,222,8 
DATASO,8,14,24,12,6,111,56,8 
DATAS1,90,8,1,127,139,219,118,12 
DATAS2,97,195,231,11,12,248,48,8 
DATAS3,8,8,128,8,8,8,98,8 

s 

REM DATAS SONSTIGE ZEICHEN 
DATAS4,1,2,9,8,16,32,64,123 
DATAS9S ,255,90,0,9,8,0,8,8 

DATA97 ,255,3,5,9,17,33,65,129 


758 
8208 
819 
829 
839 
848 
859 
869 
879 
8838 
8383 
9388 
918 
928 
939 
949 
958 
968 
979 
939 
330 


DATAgS „1,1, 1,1,1,1,1,1 


REM DATAS PFUETZE 
DATA99,98,8,1,3,3,7,7,255 
DATA188,08,128,192,224 ,224,248,252,252 
DATA181,255,255,63,31,15,15,15,3 


DRTA1902,252,248,248 ,252 ,254 ‚252 ,252,192 


s 
REM KOPF II 


DATA192,195,129,165,129,195,219,195,255 


s 
REM FIGUR 11 


DATAI86,231,219,231,195,165,195,189,189 


REM ALPHABET 
DATA1,49,14,27,17,31,81,113,8 
DATA2,398,19,19,38,19,83,126,0 
DATA3,62,93,68,64,69,98,62,8 
DATA4,126,83,17,17,17,83,126,08 
DATAS,398,17,16,28,16,81,126,8 
DATAS,28,17,16,28,16,88,112,8 
DATA? ,62,98,68,64,71,99,63,8 


1888 DATAS8,17,17,17,31,17,81,113,9 
1819 DATAI,24,8,8,8,8,8,8,8 

1828 DATA18,60,4,4,4,36,44,56,8 
18398 DATA11,19,22,290,28,28,86,115,08 
1848 DATA12,32,32,32,34,34,49,31,8 
18598 DATA13,17,27,21,21,17,81,113,0 
1868 DATA14,25,29,21,23,19,81,113,8 
1878 DATA15,28,54,99,939,99,54,28,8 


1088 
1938 
1108 
1110 
1120 
1139 
1142 
1159 
1160 
1178 
1188 
1138 
1208 
1218 
1228 
1238 
1248 
1258 
1260 
1270 
1288 
1238 
1398 
1318 
1320 
1330 
1348 
1358 
1368 


198 REM 
®8 REM x 
38 REM %* 
48 REM % 
58 REM x 
68 REM x 
78 REM x 
39 REM x 
988 REM « 


188 
118 
128 
139 
148 


158 
168 
178 
188 
198 


DATA16,38,19,17,31,16,88,112,8 
DATA17,28,54,99,99,187,54,31,8 
DATA18,398,19,19,39,28,798,115,8 
DATA19,38,51,96,68,6,67,126,8 
DATA28,127,73,8,8,8,498,56,98 
DATAZ21,115,81,17,17,17,27,14,8 
DATA22,99,59,18,18,18,26,14,8 
DATA23,113,81,17,21,21,31,18,8 
DATA24,115,86,28,28,28,54,99,9 
DATA25,115,86,20,28,8,8,8,0 
DATA26,126,98,6,238,48,35,63,8 
DATA112,17,4,14,27,17,95,113,8 
DATA121,65,28,54,99,99,54,28,8 
DATA128,18,8,113,17,17,27,14,08 
DATA118,62,19,38,19,39,16,48,8 


REM DATAS ZIFFERN 
DATA48,62,99,183,187,115,99,62,8 
DATA49,28,60,108,76,12,12,30,0 
DATAS®,30,51,182,12,24,112,127,0 
DATAS1,62,99,3,14,3,99,62,8 
DATAS2 ‚48,96,108,109,127,12,12,0 
DATAS3,1268,96,96,126,3,3,126,8 
DATAS4,38,51,96,126,99,51,38,98 
DATASS, 127,99,6,63,24,48,96,8 
DATASS ‚28,54 ,99,62,99,99,62,8 
DATAS7 ,30,51,99,63,3,51,30,8 


PRINT'’BBERIEBINETZT BITTE >>UTHE FOGanT< LADENKEES“ 
PRINT"LOARD*"CHR$SC34) "THE FOG"CHRS$<34) "DD" END 


BE = 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 20 
THE FOG 
EIN SPIEL VON 


CHRISTOPH WEYERS 
& 

MICHAEL CONRADS 
REM % * 

REM aka 

FP=16384:REM NEUER BILDSCHIRMSPEICHER 
POKES3269,8:REM AUSSCHALTEN SPRITES 
PRINTCHR$ (142) 5 CHR$CSI REM UMSCHALTEN 


* 
* 
%* 
* 
* 
x 
x 
* 


GROtSCHRIFT UND BLOCKIEREN: 


‘ 

GOSUB2488 

GOSUB268 

GOSUB331O 
GOSUB3748: PRINT"I" 


Computbe mik 


aa ca 
Go. 
o 


GOSUB3SA 
GOSUB 1420 
GOSUE2788 
GOTO1SE 


REM EINLESEN DER DATEN 

FORN=8TOßS2 :READQ : POKESS2+FP+N,G:NEXT 

FORN=8TO62 :READG :POKESSS+FF+N,Q:NEXT 

FORN=8TO&2 :READG :POKESSB +FP+N,Q:NERT . 

POKEZB48+FP,13:POKE29841+FP,14:POKE2B42+FP, ı5® 
© 


S1-54272:POKES3271,8:POKES3277,08 ® 


s 


REM ANFANGSWERTE 
LV=1:5C0=8:TS=8:DIMP<(11) 
RETURN 


5-54272-FP:REM FARBSPEICHER 
PRINT"3":POKES3288,6:POKES3281,13 
FORZ =19824+FPTO19863+FP:POKEZ ‚64 
POKEZ +FS ,8:NEXT 
FORZ=11983+FPT02823+FPSTEP48 
POKEZ ‚84 :POKEZ +FS ,8:NEXT 

FORZ =29822+FPTO1S84 +FPSTEP-1 


988 POKE1836+FP ‚76:POKE1836+51,0 
POKEZ ‚84 :POKEZ+FS ,8:NEXT 


998 POKE1767+FF ,76:FOKE1767+51,8 


FORZ = 1944 +FPTO 1864 +FPSTEP -48 1808 POKE1329+FP ‚76:POKE1929+51,8 
POKE2 ‚„64:POKEZ+FS,9:NEXT 1812 POKE1248+FP ‚,76:POKE1248+51,0 
FORZ=1185+FPT019385+FPSTEP48 ıin28 POKE1675+FP ‚,76:POKE1675+51,8 
POKEZ ,183:POKEZ +FS,6:NEXT 1838 POKE1729+FP ,76:POKE1729+51,8 

FORZ =1146+FPTO1866 +FPSTEP48 1848 : 3 

POKE2 ,„183:POKEZ +FS ,6:NEXT 1859 PRINT"":REM BAEME 

FORZ = 10836 +FPTO1S76+FPSTEP48:FORZZ=8T06 18659 PRINTTAB<3)BS$ "O"B$:B$ 

POKEZ +22 ‚224: POKEZ +22 +FS ,2:NEXT2ZZ,2 198798 PRINTTAB<12)"D"B$;B$ 
FORZ=1278+FPTO1283+FP:POKEZ „224 1889 REM 123 1 123456 
POKEZ +FS,12:NEXT 124938 PRINTTAB< 19) "ID" BE"D"BS"IRRRRL)" ; 
FORZ =1471+FPTO1482 +FP:POKEZ ‚224 1188 PRINTBS" " B$; B& "gl" B$: BB" EN" B$: 
POKEZ +FS,12:NEXT 1118 PRINT" EB" BE"D"B$ 
FORZ=1642+FPTO1653+FP:POKEZ ‚224 1129 REM 1234567899 123 

POKE2Z +FS ,12:NEXT 1139 PRINT "EREIRDTPRERT"B$; BES" EREN"B$; 
FORZ=1711+FPT0O1717+FP:POKEZ ‚e24 1148 PRINT "EB" BE" OD"BE"O" BS"Q"BE"D"B$; 
FOKEZ +FS,12:NEXT 1159 REM 123456789 

FORZ =1917+FPTO1323+FP:POKEZ ‚224 1160 PRINT"ORRRRRRBRI' ; 

POKEZ +FS,12:NEXT 1178 REM ı234 ı2 
FORZ = 1150 +FPTO1230+FPSTEP4® 11828 PRINTBS"D"B$:B$" IREMN"B$: B+s" Il" B$ 
FOKEZ ‚224 :POKE2 +FS, 12:NEXT 1198 REM 123456789 12 
FORZ=1511+FPTO1S?71+FPSTEP48 1288 PRINT"DIIIERBREI"BsS"EMI" Ds: 

POKEZ ‚224:POKEZ+FS,12:NEXT 12109 REM 1234567839 ı2 

FÜRZ = 1757 +FPT01877 +FPSTEP4® 1228 FRINT'"TRRRBRRBRBIE&"TB"B$ 

POKEZ ‚224 :POKEZ +FS5,12:NEXT 1238 PRINTTAB<I1S)BF BE"T" BE 

FÜRZ = 1322+FPTO1692+FPSTEP48 1248 PRINTTAB (39 )B&:PRINT"O"TAB<15)B$3 
POKEZ ‚224 :POKEZ+FS,12:NEXT 1259 PRINT" TRRE"B$:PRINTTAB C27T)BE" DEE" E$: 
FÜRZ = 1328+FPTO1838+FPSTEP48 1269 REM 12 12345 

POKE2 ‚E24 :POKEZ +FS,12:NEXT 1279 PR INTB$"ID"B$ "IRRDTT" B$ 
FORZ=1213+FPTO1613+FPSTEP48 1238 REM 1234565 

POKEZ ‚224: FOKEZ +FS, 12:NEXT 1238 PRINT" DIITID" TAB <S)BS$;BS"O"BS$; 

° 1588 REM 12345 : Jo 

REM 1234567330123456789 13120 FRINT' ERBEN" B$" ER" BE" D"B$"D"B$; 
H£="9—uRkls-| EBEN — "REM HAUS 1328 REM 1234567399 123 

Bt= "ea": REM BAUM 1338 PRINT 'BRBREBRRRET]"'BS"NOTD"BE"N"B$; 
REM. 123456789981 123456 1348 PRINT"IW"BE"D"B&$ 

PRINT ' EukEbBRPRBBL" HS" DEBEHET)" 5 1359 : 

REM 123456 1369 REM KIRCHE 

PRINTHE '"EBRBETI"H$ 1378 REM 12345678901 

REM 12345675391234567 1388 PRINT"EIE" TAB<CES) "ON BALTTITIEM" ; 

PR INT " Resch UB Bo Ka is Ber Be Dir U BB " HE 133@ REM 1234587833 

REM 123456789812 1234 1488 PRINT'IBREM_® ." 
PRINT" MERBS IE" HE: PRINT" DBERE" ; 14198 RETURN 

REM 12345 123456789912 14208 : 

PRINTHS” Aıbieel" HS "IREEEBBRETTTI"HF} 1439 REM RANDMASKE 

REM 123456 123456 1448 PRINT"3":PRINTTAB (32) " p- " 
FRINT'"BBRITTD" H$ "EEE" HS 14598 PRINTTAB<SISI"BEIITOTE: " 5 

| 1468 PRINTTAB (33) "WERSSCORE KRERREER" SC 
REM FIGUREN 1478 PRINTTAB (33) " MATO TAL EBEBRBESCORE KRBBRARE" T5 
POKEL151+FP,?76:POKE1151+S1,® 1488 PRINTTAB (33) "MES.EVELKEERNAF 1: "LV 
POKE1239+FP ,76:POKE1239+S1,® 1499 PRINTTAB(33) "MLIKPRESSIRERHRRFT TORREBRBBEG INA" RETURN 
POKE1441+FP ,?76:POKE1441+S1,8 1508 REM 1234567899 1234557899123456789 
FOKE1678+FP ,76:POKE1678+51,® 15108 : 
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1530 
1549 
1550 
1569 
1570 
1530 
1599 
1600 
1819 
1620 
1638 
1648 
1650 
1668 
1678 
1680 
1630 
1708 
1719 
1728 
1730 
1748 
1750 


50 
13698 
1879 
1358 
1830 
1998 
1318 
19208 
1338 
19348 
1359 
1369 
19378 
1988 
1939 
2890 
28108 
2028 
2039 
2949 
2058 
20968 
2378 
2BE9 
22850 
2199 
2118 
2128 
2138 
2148 
21598 
2168 
2179 
2159 
2198 


2460 
2478 
2488 
2438 

"2508 
2518 
2529 
2538 
2548 
2558 
25608 
2579 
2550 
23:9 
26098 
2618 


2628 


24. Oktober 84 


REM SPIEL 


v-53248:%21=5:Y1=1980:K1(0)=S6:K2(9)=28:POKEV +21 ,3:POKEV+49,90:5=0:BS=1137 


B=1:G6R=1297:DEFFNPE (K2)=1923+FP+INTCK2/8 ) +48 K INT(Y2/8) 


FORN=1T03 

READQ :READWEKICNI=Q:K2 CN) =W 
NEXT 

FORN=1T019 

READQ:PCNI=Q 

NEXT 

TI$="808099":G0T01859a 


R2=K1(S): Y2=K2(S):POKEV+21,31G0SUB2329:G0SUB 1428 


POKEV ,X1:POKEV+1,Y1:POKEV+2 ,X2+8:POKEV+3,Y2+48 
J=PEEK (56329) 


H=FNPE (82): IFPEEK CH) < >224ANDPEEK CH) < >33THENI1628 


IFPEEK CH) =S3THEN1798 


IFJ=126THENY2=Y2-4 1768 
IFJS125STHENY2=Y2+4 1779 : 
IFJ=1 193 THENX2=X2+4: IFK2 3247 THENX2=247 17808 
IFJ=123THENX2=X2-4 17938 
IFS1-8<RZTHENX1=X1+LV:G0OT0 1738 1208 
R1=X1-LVEIFK1HLVY-3=SR2THENKI=SRI+LV 1818 
IFY1-49<SYZTHENY1=Y1+LV:GOTO1758 1828 
vYi=Yi-LVE IFY1+LV-49=Y2THENY1=SY1+HLY 1538 
POKEV+39,8: IFPEEK (V +39) =3THEN2259 1840 


FOKEP (B)+S1,13:B=B+i 
POKEV+21,3:60T01628 


REIA SPIEL ZU ENDE 


LY=LVY+1: IFLY=STHEN1338 
IFGR<=1392THENGOSUB389:G60T02218 
POKES53288 ‚,08:POKES32831,8 
POKEV+21,8 


FRINT"AUEBS" 
FRINTM UUU Iemb MB Bi “ 
PRINT'z2BI ki bi BI BRRRMI bei BI BI Big" 
PRINT’ BIBI Ei bieimE Bi BE KB BIER” 
PRINT" zB bEl RI bi DBRmmI BIBI Bi BI BI " 


PRINT" zZEBI IBI BI bERBI Im Bi " 
PRINT" AsIeappns IE HABEN" TS" PUNKTE ERREICHT 
POKE214,13:POKE211,0:5Y553649 
FRINTTAB (19) "NERBRF bins " 
PRINTTAB<11) "ORRERIT IEBIBIP " 
PRINTTAB (12) "ChABAFTIRERII ” 
PRINTTAB (13) HIERBEI " 
PRINTTABL24Y"L* 

PRINTTAB<26)"9?* 
POKEV+23,7:POKEV+29,7 

POKEV ,‚228:POKEV+1,128 
POKEV+2,189:POKEV+3,188:POKEV+48,14 
POKEV+4,,188:POKEV+5, 188: POKEV+41,2 
POKEV+21,7 

GOSUB3438 
POKE198,0:WAIT1S8,1:GETG$ 

IFG$=*J" THENRUN 

IFGS<)"N"THENZ1S® 
FPOKEZ214,16:POKE211,0:5Y553548 


G0T01638 


rd 
a 
o 


POKES3243+21,8:PRINT"":POKES3288 ,6:POKES3281,6:END 


REM FIGUR IN KIRCHE . 
P=TI:POKEV+21,1:POKEBS+FP,186:POKEBS+S1,2:60SUB36608 
BES=BS+1:IFBS=1143THENBS=1177 

S=S+1:1FS>9THEN1S98 

IFPYZBBOBOTHEN1358 

S0=SC+2988 -F:TS=TS+29898-P 

GOSLUB 1449: T1$="80080099" 


s 
E=1:5=0:5C0=8:6R=12937:BS=1137 
GOTO1828 

: 
REM FIGUR TOT 
FOKEVY+Z21,1:POKEGR +FP ,192:POKEGR+SI,2 
GOSUB3448 
GR=GR +1: 1IFGR>L3B2THEN13O8 
POKEP (B)+SI,13:B=B+1 
S=S5+1: IFS>3THEN1998 
T1$="090898*":G0T01628 


REM PFEILE AUF FIGUR 
POKEV+21,255:POKES1+4,65 

POKEV +4 ,K1(5) +8:POKEV+5,K2(S) +48 
FORA=ITO18:POKESI+1,67:POKESI,Ax18 
FORN=BTO1S 

POKEV+41,N 
NEXTN,A:POKEV+21,3:1POKES1+4 ,8:RETURN 


REM VORSTELLUNG 
POKES3281 ,8:POKES3288 ,8:PRINT" 24" 


REM 123456739912345678990 12345678991 
PRINT" xo® I6-+4 | PRESENTS :":PRINT 
REM 1234567899 12345678991234 


PRINTTABC 14)" VITTU CTTTTU ETTTITU" 


REM 1234567830 12354567839 1234567839 123456783912345678991234 
PRINT 23 wugeazageaa u 4 u Ba dä [ "y 
PRINT" zu zu ygmaam a Be ä | Bes" 
PRINT" au a ed m DUO a a Do Be Ho Be di 3 en ee" 
PRINT" za zu ygaam A Bm Ü Ba Ü Ba A Bin“ 
FrRINT ge gu ga a 0 id Gm AU Ba Bad Ba ie“ 
REM 12345673901234567898 1234567899 123456 
PRINTTAB(13)"4 uy A Ba DUO Mn A Bi” 

PRINTTAB(14)" En A a A a ET" 

PRINTTAB<14)"4 Mr BJ Ei ar ed Ben” 
PRINTTAB (14) "2 ug,gt A ad ad Ba 3 
PRINTTAB<14) "42 Mu U ai Ba 2 o Ba A 
PRINTTABC1A "I un A ui al Ba O3 Mn” 
PRINTTAB<14) "I m A EG Bad TEE in” 
PRINTTRBCIYY" 3 ur 3 | Ban" 

PRINTTAB<1I "2 mau Bı 4 Bu" 


REM 12345673839812345678981234 


Compute mi 


21 


2638 PRINT:PRINI:SPRINT" COPYRIGHT BY" PRINT 29388 DATA®,8,0,8,0,8,0,8,8 

2648 REM 1234567890 12345678908 1234567890 12345 29318 DATAO ,26,0,9,28,8,0,56,8 

2658 PRINT" C.WEYERS & M.CONRADS"® 2928 DATAB,88,0,98,88,0,0,48,0 

2668 RETURN 29338 DATAY,48,0,0,72,0,0,0,8 

2678 ı 2948 DARTAO,9,9,08,0,8,0,8,8 

2688 : 29358 DATA®,8,0,9,0,8,0,9,8 

2698 REM ABFRAGE DER FUNKTIONSTASTEN 2368 : 

2788 GETFS$: IFF$=""THEN2798 2978 : 

2718 IFF$S=CHRS$< 136) THENRETURN 2388 REM DATAS FUER PFEILE 

2728 IFF$=CHR$( 133) THEN2748 2998 DATA192,0,3,224,0,7,112,90,14 
2738 GOTO2788 | 3088 DATAS3,0,228,31,8,248,15,0,248 
2748 IFLY=4THENLV=8 3818 DATA31,9,248,31,8,248,0,9,8 
2750 LV=LV+1:G0SUB 1448:60T02799 3028 DATA8,8,9,9,9,0,8,0,8 

2768 : 3839 DATA®,8,9,31,8,248,31,0,248 

2779 : 3849 DATA15,9,248,31,0,248,59,0,2208 
2788 REM DATAS FUER NEBEL 3858 DATA112,9,14,224,0,7,192,8,3 
2738 DATAB,8,9,0,8,96,0,97,248 30868 : 
2808 DhTA1,253,252,3,255,252,7,255,188 i 3978 ı 

2819 DATA31,127,184,30,255,183,31,255,254 3088 REM DATAS SOUND 

2820 DATA1S,255,254 ,7,253,252,7,227,252 38938 DATA8,0,0,3,9,0,249 

28308 DATA? ,255,196,15,255,252,31,255,254 3188 DATAI,196,0,4,8,08,182 

2848 DATAI2,63,252,15,167,248,7,195,192 3118 DATA3,196,0,6,0,0,64 

2858 DATA3,1,128,80,8,9,0,8,8 3128 DATA ‚39 ,243,31 

2868 : 3138 DATA4 ‚226,5,207,6,133,7,193,9,196 
2870 : 3148 DATAS,133,5,207,7,193,9,196 F 
2888 REM DATAS FUER FIGUR 31580 DATA5,123,6,133,8,55,5,123,7,31,8 
2898 DATA8,8,9,8,0,8,8,8,8 3168 DATA139,4,226,6,39,8,188 

3170 : 

3189 ı 3318 :®: DIMN<18),N1(18) 

3139 REM DATAS FUER STANDORTE 3328 FORJJ=8T024 :READXX :POKESI+JJ,KR:NEXKT 
32088 DATA128,52 ‚200 ,52,152,88,64,136,96 3338 FORKK=1TO18:READN<CKK ) SREADNI (KK) NEXT 
3218 DATA148,112,168,208,180,208,152,208,144 3349 POKESI+4,65:POKESI+11,65:POKESI+18,65 
23228 DATA1151,1239,1248,1441,1678,1675 3358 FORKK=1T09 

3238 DATA1836,1929,1767,1729 3368 ı POKESI+1,NCKK)SPOKESI ,NICKK) 

3248 ı 33708 : POKESI+8 ,NCKK)TPOKESI+7,NICKK)I+? 
s259 t 3338 : POKESI+15,NCKK)SPOKESI+14 ,NICKKI +11 


3268 REM AUSSCHALTEN DES SOUNDS 33998 FORAA=8T0359 1 GETG$: IFG$=CHR$( 13) THEN3429 
3278 FORLW=54272T054272 +24 POKELW,B:NEXT:RETURN 3488 NEXTAA,KK 


32898 : - - 3418 GOTO3358 
3239 : 3428 POKES1+4 ,8:POKESI+11,8:POKESI+18,8:RETURN 
3388 REM THE FOG SOUND 3438 : 


3448 POKESI1,5:POKESI+11,8:POKESI+18,8 

3458. POKES1+4 ‚65: FORAA=88TOSSTEP-1:EPOKESI+1 ‚AAtFORBB=9TO 18 :NEXTBB,AA 
3468 FORBB=DT0294 :NEXT:POKESI+4,8 

3478 RETURN 

3488 POKESI+2,15:POKESI+3,13:POKES1+5,3#16+15:POKESI+6,9 
3498 FORKK=18TO18STEP3 

3508 POKES1+4,65:POKES1+11,65:POKESI+18,65 

3518 POKESI+1,NCKKITPOKESI,NICKK) 

3528 POKESI+8,N(CKK+L):POKESI+7,NICKK+1) 

3538 POKESI+15,N(CKK+2):POKESI+14 ,NIIKK+2) 

3548 FORAA=8TO65B : NEXTAA 

‚3558 POKESI+24 ,8:FORAA=9TO IB: NEXTAA:POKESI+24,31 

3568 POKESI+1,N<CKK)SPOKESI,NICKK) 

3578 POKESI+8 ,N(KK+1):POKESI+7,NICKK+1) 

3588 POKESI+15,NCKK+2):POKESI+I14, NIEREN 

3598 FORAA=9T0453 :NEXTAA,KK 

3688 POKESI+1,5:POKESI,123:POKESI+8,6:POKES1+7,133 

3818 POKESI+15,8:POKES1+14,55 

3628 FORAA=31TOISESTEP-1:POKESI+24,AA 

3638 FORBB=8TO 188: NEXTBB,AA 

3648 FORAA=9TG 1888 : NEXT 1 GOSUB3278: RETURN 

3658 3: 

3668 POKES1,5:POKES1+11,9:POKESI+I18,8 

3678 POKES1+4 ‚65: FORAA=5T088:POKESI+1 ,AA:FORBB=8TOS:NEXTBB ,AAR:POKESI+24,8 
3688 FORAA=BTOSB:NEXT 

36938 POKESI+24 ,31:POKESI+1,5:POKESI,123 

3788 FORAA=9T0S98 :NEXT:POKESI ,2097 

3718 FORAA=9TOSBYB:NEXTIPOKESI+1,8:POKESI,133 

3728 FORAA=8TO598:NEXT:POKESI+4,8 

3738 RETURN 

3748 

3758 : 

3768 REM THE FOG - ERKLAERUNG 

3778 PRINT"ÜI@" 

3788 PRINT" THE FOG - DAS SPIEL IHRER CALPITR KUME" EPRINTEPRINT 
3738 PRINT") WIE SIE ES AUS DEM FILM WOHL KENNEN, "PRINT 


22 Compube mi 24. Oktober ’ 


3388 PRINT" IST ES IHR ZIEL, SO VIELE PERSONEN*® :PRINT 
3818 PRINT" WIE MSSLICH ZUR KIRCHE ZU LEITEN. *:3PRINT:PRINT 
38328 PRINT" BENUTZEN SIE HIERZU DEN JOYSTICK IN" SPRINT 
3838 PRINT" CONTROLPORT ZWEI. ":PRINT 

3848 PRINT" EINE BESONDERE SCHWIERIGKEIT HIERBEI*:PRINT 
38598 PRINT" BILDET DIE LEUCHTENDE NEBELBANK, DIE" :PRINT 
3868 PRINT" IHRE 288 JAHRE LANG AUFGESTAUTE WUT" PRINT 
3878 PRINT" NUN AN DEN EINWOHNERN DIESER STADT" PRINT 
3388 PRINT" AUSLASSEN WILL. ÜRETURN" 

3898 POKE198,9:WAIT198,1 

3388 IFPEEK(631)<>13THEN3899 

3918 PRINT"LIN" 

39328 PRiNT:PRINT 

39338 PRINT" AU-ERDEM STEHT IHNEN ALS EINZIGER" :PRINT 
39348 PRINT" FLUCHTWEG DIE STRA-E ZUR VERF=GUNG. ":PRINT 
3358 PRINT" SOLLTEN SIE TROTZDEM VERSUCHEN DIE *":PRINT 
39368 PRINT" STRA-E ZU VERLASSEN, BEGINNEN SIE*:PRINT 
3978 PRINT" WIEDER AM AKTUELLEN AUSGANGSPUNKT. ":PRINT:PRINT 
39388 PRINT" UM EINE M„GLICHST HOHE PUNKTZAHL ZU" SPRINT 
33938 PRINT" ERREICHEN, SOLLTEN SIE AUF DEM *":PRINT 

42088 PRINT“ SCHNELLSTEN WEGE ZUR KIRCHE GELANGEN. *:PRINT 
4818 PRINT" =BERSCHREITEN SIE DABEI DIE ZEITMARKE *":PRINT 
408298 PRINT” VON 38 SEKUNDEN, BRINGT IHNEN DIESE" PRINT 
4838 PRINT* RETTUNGSAKTION KEINE PUNKTE. ":PRINT 

4848 PRINT" STARTEN SIE NUN DURCH ZIRETURN® 

4858 POKE198,0:1M1T188,1 

4868 IFPEEK (631)< >13 THENA4859 

48798 RETURN 

492R1 END 


Be > 7; 


für den VG-20 


Dieses Spiel ist eine hübsche Version des bekannten 
Spiels ”PAG MAN” für die Grundversion des VC-20. 
Nach dem Betätigen einer beliebigen Taste kann das 
Spiel mit.Druck auf den Joystickknopf gestartet wer- 
den. Man muß die Pac Maid so durch den original Pac 
Man Kurs führen, daß es alle Punkte schnappt und da- 
hei nicht von dem Geist erwischt wird. 

Nimmt es eine der vier Kraftpillen zu sich, so ist sie die 
Stärkere und kann den Geist fressen, was bis zu50 zu- 
sätzliche Punkte einbringen kann. Hat sie alle Punkte 
gefressen, so kommt sie in die nächste Runde, die sich 
von der ersten dadurch unterscheidet, daß die 
Wirkung der Kraftpille nicht mehr so lange anhält. Die 
Punktzahl wird nach jeder Runde oben links angege- 
ben. Die nächste Zahl ist die bisherige Höchstpunkt- 
zahl, die dritte Zahl ist die Rundenzahl. 

Viel Spaß! 


aaa 


SC: Score 
HI: HI-Score 
RY, RU: Bewegungsrichtung des Geistes 
0: Zeichen unter dem Geist 


Variablenliste: 

F: Zur Farbadressenberechnung 
J: Joystickadresse 

X: Position der Pac Maid ae 
Y: Position des Geister $: Schwierigkeitsgrad 


XM, XT: Bewegungsrichtung der Pac Maid RN: Nummer der Runde 
RT, R: Hildsehfrm Code Her Ps Maid PU: Anzahl der gefressenen Punkte 
Al, A2: Bildschirmadressen P, A, I: Für verschiedene Zwecke 


24. Oktober '84 Compute mi 23 


188 
181 
182 
183 
1984 
185 
186 
187 
188 
183 
118 
111 
112 
113 
ı14 
115 
116 
117 
118 
119 
128 
121 
122 
158 
288 
218 
388 
318 
368 
488 
495 
4198 
420 
430 
458 
468 
478 
a?75 
450 
498 
598 
519 
552 
g80 
615 
628 
E38 
35 
630 
€e59 
655 
668 
665 
678 
639 
685 
639 
695 
799 
785 
718 
728 
738 
758 
768 
-7o 
78 
839 
sas 
318 


24 


FOR 1=7688T07679 :READA: POKEI ,A:NEXT:POKE36869 ,255:POKE36879,25 

DATA, ,,777,,178,,138,,138,,178,1,r 12,182 ,1lE,sr00r 56 
DATA124,124,108,68,0,,68,108,124,124,56,8,80,56,124,60,23 . 
DATASB, 124,56,,28,62,60,56,68,62,28,8,0,8,8,8,8,,,,28,42,92,62,594,34, 
S=-35:5SC=-B:PU=B:RN=1 


PRINT "ARE" SCTAB<SIHITABCISIRN"M" 

PR INT" 738833388338883833833* 

PRINTYFSIIIIIYIHEIII>I IH I)" 

PRINT "78988 >383>8)7883)3398" 

PRINT"73>83)383)3)883)88)8" 

PRINT"FEIIIISIIIDIIIII II IE" 

PRINT"78)8E38Y72)83388)83)88 >83" 

PRINTY"7EI2YYIEYY)Y3Y)Y)Y)BY)>Y)8" 

PRINT"78888)883>8)388)>8838" 

PRINT"777782877777778>8" 

PRINT"78883 878883873 )83883" 

PRINT"7777727737778773>" 

PRINT"782938)873383873)8838" 

PRINT" 7777838777777783>3" 

PRINT "78838 >8788888378)8888" 

PRINT"FSYIIIIIIIBY III III I5" 

PRINT"78)83)838>8)838>83)8" R 
PRINT?7ESIYBIII>I>IIY II >83 )38" 223 PRINT" EI" TAB<7)"CTASTE)I" 
PRINT"788>8)8)883833)8)8 >38" E50 POKE193,9:WAIT193,1:60T068 


PRINT"78YY22>3>Y3>23)>2>E>3>Y 98" 360 FORI=210T0248STEP2:FORA=1-25TOI:POKET,A:NEXTR,I:POKET,® 
PRINT"78>885833 337835853 8" 918 IFS>STHENS=S-5 
PRINT"F7EIY>IIHIIIIIYD>IDYI38" 328 RN=RN+1:15C=SC+PU:FORI=1TOSOB:NEXT:GOTO18O 


PRINT"7883°333588833838588385 3" 

IFPEEK (198) =90THENS98 
F=20720:J=37151:POKEJ+3,127:1T=36376:PUKET+2,15 
PU=8:0=55:XT=1:C=2:A1=-79323:A2=Al+13 
3=88564:RT=61:POKEH,RT:POKEX+F,7 
Y=7883:RY=1:PCKEY,63:POKEY+F,C 
IFPEEK < JIAND3S2 THEN3E® 

IFX=YTHENTOA 

P=PEEK <JYAND2S: IFCPEEK CJ+ 1 )ANDI23)=BOTHENXT=I:RT=61 
IFP=12THENXT=-1:RT=68 

IFP=24 THENXT=-22:RT=59 

IFP=2B8THENXT=22:RT=58 

IFPEEK (K+H#T)< >5ETHENKM=KT:R=RT 

P=PEEK (H+XMI : IFP=SETHENSS®O 

PCGKEX „5S5:%=4+HM: IFN=ALTHENS=A2-1:G0T0488 
IFS=AZTHENS=AIl#+1 

FOKEX+F ,T:POKEHX,RiIFRND<C1)<.35THENPOKEX „289 
IFP=63THEN?®8 

IFP=57THENPOKET ,223:POKESE876,8:C=6 
IFP=S2THENPU=PU+1:POKET,245:POKET,8: IFPU=154THENSY8 
IFINTCRND<1)#+5)=0OTHENC=2 
A=S(K-V)/22: IFAS 7 INTCA)ITHENGSDO 

RV=22: 1FA<SBOTHEHRVY=-22 

IFPEEK (<Y+RVD SDSETHENRY=RV:GOTOESO 
IFINTCK-ZEIK>INTEY/22ZITHENGSO 

RV=-1: IFY{ATHENRVY=1 

IFPEEK (V+RY)I<DSETHENRY=RV: GOTOSSDO 

IFPEEK (Y+RY)< >56 THENSS® 

RV=INT(CRND<1)x4): IFRVY=BOTHENRVY=-1 

IFRY=2THENRV=22 

IFRV=3THENRY=-22 

RY=RV:GOTOSS® 

POKEY,O:Y=Y+RY: IFY=ALTHENY=A2-1:G0TO6S8 
IFY=A2ZTHENY=Al+1 

O=PEEK(Y):POKEY+F,C:POKEY,63 

GOTO498 

1FO=SS8S2THENPU=PU+1: 1FFU=154THENS8®8 

IFC=2THEN?SQ 

POKEX ‚R:POKEX +F „3:FOR1=228T0245STEP. 15:POKET, I:NEXT:POKET,® 
FOR1=1T0588 :NEXT:POKEX+F ,7:Y=7888: IFX=YTHENY=Y+3 
POKEY,63:C=2:0=55::POKEY+F ,C:SC=SC+INTCRND(1)%59):G0T0400 
A=R:POKEX+F ‚2:FOR1=218TO127STEP-.S:POKEX ‚A:A=At1: IFA=S2ZTHENA=SS 
FOKET-2,1:NEXT:POKEA,SS:FOR1=1T0599: NEXT 

SC=SC+PU: IFSCHHITHENH I=SC 

PRINT" S8"SCTAE(CSIHITAB<CIEHIRN 

PRINT ’EASTElr x“ PAC MAID rk" 
PRINT" ER" TABCSY"BY" 

PRINT" EBBIHANNES KALTENBACH" 


Compute ent 
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Fehler: 
In der deutschen Sprache wird ein einzi- 
ger Begriff für zwei englische Ausdrücke 
verwendet: bug und error 

Unter ”error” versteht man eine 
Funktionsstörung des Computer Sy- 
stems durch einen Hardware-Fehler, 
bzw. durch Fehlbedienung des Benut- 
zers. 

Unter ”bug” versteht man dagegen einen 
Fehler im Computerprogramm, einen so- 
genannten Software-Fehler. 


Fehlermeldung: 

Der Computer zeigt auf dem Bildschirm 
an, wenn während des Arbeitens entwe- 
der im Gerät, seinen Systembaugrup- 
pen, einem Peripheriegerät oder auch im 
Programmablauf ein Fehler auftritt. 
Meist ist das die Fehlermeldung ”error”, 
gefolgt von der näheren Bezeichnung, wo 
der Fehler aufgetreten ist, bzw. um 
welche Art von Fehler es sich handelt. 


Festplatte: 

Ein Massenspeicher, der ähnlich funktio- 
niert wie ein Diskettenlaufwerk. Es wird 
aber statt der flexiblen Kunststoff- 
scheibe eine stabile, magnetische Fest- 
platte verwendet. 

Eine wesentlich höhere Speicherkapa- 
zität kann mit Festplatten erreicht wer- 
den, in der Regel ab ca. 3mByte 
aufwärts. 
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Festwertspeicher: 
Das sogenannte ROM. (Read Only 
Memory). 

Aus ihm können nur Daten ausgelesen 
werden, aber:nicht eingeschrieben wer- 
den. Unter anderem enthalten die Fest- 
wertspeicher den Basicinterpreter und 
das Basicbetriebsprogramm. 

Die in einen Festwertspeicher abge- 
speicherten Daten bleiben auch nach dem 
Abschalten der Betriebsspannung 
erhalten. 


File: 
Anderer Begriff für Datei. 


Firmware: 

System- und Anwendungsprogramme 
eines Computers, die fest im Computer 
(z.B. im ROM) eingebaut sind. Diese Pro- 
gramme sind sofort verfügbar, das Einla- 
den von Diskette oder Kassette 
entfällt. 


Floppy: 
Kurzform für Diskette bzw. Disketten- 
laufwerk. 


Flußdiagramm: 

Grafische Darstellung über den Ablauf 
eines Computerprogrammes, das alle 
Verzweigungen, verwendete Ein- und 
Ausgaberoutinen, alle Unterprogramme 
usw. enthält. Es dient zur besseren Über- 
sicht bei komplexen Programmen. 


Compube mik 


Form Feed: 
Bezeichnet den Seitenvorschub bei ei- 
nem Computerdrucker. 


Formatierung: 

Daten und Programme werden nach ei- 
nem fest vorgegebenen Schema auf 
Disketten abgelegt. Dabei werden Spur- 
und Sektorennummer vergeben, die zum 
richtigen Plazieren und Wiederfinden der 
Daten nötig sind. 


Forth: 

Höhere Programmiersprache, die an As- 
sembler angelehnt ist, ist in erster Linie 

für Computer-Steuerungsaufgaben ge- 

dacht. 


Fortran: 

Höhere Programmiersprache, wird für 
mathematische und naturwissenschaft- 
liche Probleme verwendet. Fortran steht 
für ”Formular Translator”. 


Funktionstaste: 

Bestimmte Tasten auf einer Computer- 
Tastatur, die kein Zeichen auf den Bild- 
Schirm schreiben, sondern Bedienungs- 
funktionen auslösen. Dazu gehören u.a. 
die Cursortasten, die Delete-Tasten und 
die Break-Tasten. 


Viele Personal- und Heimcomputer ha- 
ben einen eigenen Tastenblock, der für 
solche Funktionen vorgesehen ist. 

Die Tasten können frei programmiert 
werden. 
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Das Speichermedium Kassette 
Teil 1 


Für die Commodore-Heimcomputer gilt die Datasette als kostengünstige Speichereinheit. 
Wir wollen uns die Kassetteneinheit mal etwas genauer anschauen und versuchen, die 
Funktionsweise zu verstehen. 


Die Hardware: 

Die Commodore-Geräte VC- 
20 und und C-64 benutzen 
zur Programm- und Daten- 
speicherung die sogenannte 
Datasette. Dies ist ein spe- 
zieller Datenrecorder, der ent- 
gegen handelsüblichen Kas- 
settenrecordern keinen Laut- 
sprecher eingebaut hat. 
Die Datasette wird über 6 
Leitungen vom Computer ge- 
steuert. Die Bezeichnung der 
Leitungen sind 
- Schreiben 
- Lesen 
— Motor 
— Kontrolle 
- 2 Versorgungsleitungen 

+5V und Masse 
Die Datasette wird über 2 1/0- 
Leitungen von der VIA 6522 
gesteuert. 
Die Motorspeisespannung ist 
mit dem Interface-Chip über 


26 


einen Transistortreiber ge- 
koppelt, der die Leistung und 
Spannung verstärkt. 

Das erlaubt eine direkte 
Motorsteuerung. Die Speise- 
spannung des Motors sind 
unregulierte 9V mit einer Lei- 
stung von 500mA. Man kann 
den Kassettenmotor über die 
VIA Il-Leitung durch Poken 
Ein- und Ausschalten. Mit 
POKE 37148,14 schaltet man 
den Motor ein und mit 
37148,12 wieder aus. 

Der Kontrolleingang (SENSE) 
liegt auf der Datenleitung 
PA6 der VIAI und ist mit ei- 
nem Schalter im Kassetten- 
deck verbunden. Diese spricht 
an, wenn eine Steuertaste der 
Datasette gedrückt wurde. 
Gebraucht wird der Schalter 
allerdings nur bei der Abfrage, 
ob die Play-Taste gedrückt 
wurde, um anschließend den 


Schreib/Lesevorgang zu star- 
ten. 

Dies geschieht in einer ROM- 
Routine, die im Bereich von 
HEX F8AB liegt. 

Wird versehentlich die Vor- 
spul- ode Rückspultaste be- 
tätigt, so kann der Computer 
den Unterschied nicht erken- 
nen. So muß auch beim Saven 
zuerst die Record-Taste und 
dann erst die Play-Taste ge- 
drückt werden, da der Com- 
puter im Moment des 
Steuerimpulses anfängt, Da- 
ten zusenden. 

Die Leseleitung ist mit der 
CA-I Linie der VIAII verbun- 
den, die Schreibleitung liegt 
an PB3 der VIAII. 

Während eines Lesevorgan- 
ges benutzt das Betriebssy- 
stem die Interrupt-Flag von 
CA-I, um Sendedaten aufzu- 
nehmen. 

Die Funktionen der Schreib/ 
Leseleitung werden vom 
Operationssystem kontrolliert. 
Die einzige Hardware, die 
sonst noch benötigt wird, ist 
ein Signalverstärker und ein 
Wellenformer, der das Signal 
"reinigt". 

Diese Schaltungen sind auf 
einer kleinen Platine im Kas- 
settendeck untergebracht. 
Außerdem übernehmen sie 
noch die Spannungsregelung 
und erzeugen ein Rechtecksi- 
gnal mit 5V, um einen Inter- 
rupt auf den CAl- und CB1- 
Leitungen zu erzeugen. 


Die Kassettenoperation: 
Normalerweise braucht das 
Kassettendeck keine Geräte- 
nummer, da automatisch die 
Gerätenummer auf 1 gesetzt 
ist, welches dem Kasset- 
tenkanal entspricht. Die 
Nummer des momentan an- 
gesprochenen Gerätes kann 
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in Speicherstelle 186 abge- 
fragt und geändert werden. 
Die Gerätenummer, die logi- 
sche Dateinummer sowie die 
Sekundäradresse werden ge- 
braucht, wenn man Datafiles 
(sequentielle Files) zum Kas- 
settendeck senden oder von 
ihm empfangen will. 

Die logische Dateinummer 
kann jede Zahl von 1-255 
sein. Sie wird gebraucht, um 
verschiedene Files auf dem 
gleichen Gerät zu verwalten. 
Bei Kassettenoperationen 
kommt dies jedoch sehr 
selten vor, das Hauptanwen- 
dungsgebiet liegt beim Ar- 
beiten mit der Floppy. Ub- 
licherweise benutzt man die 
gleiche Filenummer wie 
Gerätenummer. 

Der momentane Wert der logi- 
schen Filenummer kann in 
Speicherstelle 184 abgefragt 
und geändert werden. Die 
Sekundäradresse ist sehr 
wichtig und in Speicherstelle 
185 abgelegt. Der Normal- 
wert von ihr ist 0. 

Sie wird gebraucht, um 
Wertigkeiten von Files fest- 
zulegen. Hält die Sekun- 
däradresse den Wert 0, so ist 
der Datenkanal für einen 
Lesevorgang geöffnet. Ist die 
Adresse "1", so ist der Kanal 
für einen Schreibvorgang 
geöffnet. 

Hat die Sekundäradresse den 
Wert ”2”, so ist der Datenka- 
nal für einen Schreibvorgang 
geöffnet, setzt aber an das Fi- 
leende einen EOT-FLAG 
(End of Tape). Das Opera- 
tionssystem des Computers 
ist so angelegt, daß es 2 ver- 
schiedene Arten von Files auf 
Kassette anlegen kann: 
Programmfiles und Datenfi- 
les. 

Der Unterschied der beiden 
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Filetypen liegt nicht in ihrem 
Aufbau, sondern wie sie im 
Maschinenspeicher abgelegt 
werden. Anstelle von Pro- 
gramm- und Datenfiles 
könnte man auch binäre und 
ASCII-Files sagen. Um Pro- 
gramme abzuspeichern, wird 
überlicherweise die Binär- 
datei verwendet. 

Binärfiles werden vom Ope- 
rationssystem so angelegt, 
das sie im Bereich zwischen 
Stat- und Endadresse 
liegen. 

Sie werden Binärfiles ge- 
nannt, da sie den Wert einer 


Adresse in Binärzahlen 
ablegen. 
Basic-Befehle werden in 


Form von Tokens abgelegt. 
Das bedeutet, das die Basic- 
Befehle in einer codierten 
Form im Speicher stehen. 
Also nicht in der Form, wie sie 
auf dem Bildschirm zu listen 
sind. 

Dadurch läßt sich ein Binär- 
file wesentlich schneller und 
platzsparender speichern. Bi- 
närfiles werden hauptsäch- 
lich beim Laden und Spei- 
chern von Maschinenpro- 
grammen verwendet. Die 
Startadresse, von der an ein 
Binärfile abgespeichert wird, 
steht in den Lokationen 172 
und 173. Diese Lokationen 
werden von der Save- 
Routine, mit der der Save- 
Befehl beginnt, geladen. Nor- 
malerweise stehen darin die 
Werte 1 und 16, welche auf 
den Start des Basic-Bereichs 
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4097 hinweisen. 

Sie können von der Save- 
Routine so manipuliert wer- 
den, das sie auf jeden anderen 
Punkt im Speicher zeigen 
können. 

Die Endadresse des zu spei- 
chernden Bereichs liegt inden 
Stelen 174 und 175. 
Während des normalen Save- 
Vorganges sind diese Adres- 
sen mit einem doppelten 0- 
Byte belegt, in welches die 
Linkadresse des Program- 
mes kopiert wird. 

Um den Wert dieser Adressen 
zu ändern, kann man die nor- 
malen Save-Routinen nicht 


Der ideale Schönschreibdrucker für Ihren 


C 64* von ) 


@eingebautes Interface für 
seriellen Port 


@ Adresse 4 oder 5 einstellbar 

® Schreibmaschine mit Korrek- 
turspeicher 

@ ON-OFF-Line Taste trennt 
Betriebsarten 

®@ Zeichenabstand (10, 12 und 


15 Z/Zoll) und Zeilenabstand 
(1, 1 1/2 und 2 zellig) 
vom Rechner einstellbar 

® ohne Tastatur als compact 
2RO 


OLYMPIA electronic compact 2 


@ 100 Zeichentypenrad 

@ 14 Zeichen/Sekunde 

@ Leerstellenunterdrückung 

@ sofort lieferbar 

@ enorm preiswert 

@ viele Typenräder, Gewebe- 
Karbon-, Multikarbonbänder 

@ bundesweiter Werkskun- 
dendienst 


* auch-für andere Rechner mit Centronics, V.24 und IEC-Bus. 
Alle OLYMPIA-Drucker (ESW 102, 103 u. 3000) für den C 64 lieferbar 


Telemannstraße 18 


(GE3)-Detentschnik 7250 Leonberg (Höfingen) 


@ 07152/6305 
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CASS SCHR. 
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verwenden, da sie die 
Linkadressen automatisch 
initialisieren. 


Um dies zu erreichen, muß 
eine kurze MC-Routine ge- 
Schrieben werden. 

Gibt man ein gewöhnliches 
Save- oder Loadprogramm 
ein, so lädt der Computer ein 
Binärfile. In ASCII-Files wer- 
den normalerweise Daten 
abgelegt, man kann aber auch 
Programme damit verwalten. 
Ein ASCII-File besteht aus 
dem gleichen Format, das auf 
dem Bildschirm ausgegebn 
oder über Tastatur eingege- 
ben wurde. Sie werden unter 


Völzke Computer vV.c 
Peripherie P 


Eprom-Programmer V128 für C 20, C 64 u. SX-64 für 
Eproms 2508/16/32 u. 2758/16/32/64/128. Professionelle 
Ausführung m. komfortabler Treiber-Software auf Kas- 


N 


sette: 


im Pult-Gehäuse 


tung 
Diskette zzgl. 


Info 


gegen 
Rückporto 


Al 


Neu: Eprom-Programmer V128-G 


Uniment-C 64-Befehlserweiterung: über 50 zus. Befehle 
u. Funktionen für Assembler, Centronics-Druckanschl., 
Graphik-, Sprite-, Sound- und Disketten-Anwendung; mit 
Beispielprogrammen u. ausführlicher Bedienungsanlei- 


UNIMENT-Steckmodul 
Weiteres aus unserem Programm: 
— Eprom-Karten und -Löschgerät 
— 80-Zeichenkarten 
Hagen Völzke, Ahornallee 4, 8023 Pullach 
Versandhandel 


| Grnd 
Lesen 


Kontrolle 


6 poliger Kass-Port 


Zuhilfenahme eines Basic- 
Programmes geschrieben/ 
gelesen, während Binär-Files 
mit Direktinstruktionen ver- 
waltet werden. 

Die Direktbefehle Load und 
Save können jedoch auch bei 
Basic-Programmen vorkom- 
men. 


Nächste Woche wollen wir 
den Umgang mit sequen- 
tiellen Files sowie die 
Memory-Map des Kasseiten- 
betriebssystems kennenler- 


nen. 
(sr) 


DM 249,— 


DM 349, — 


DM 99,— 
DM 7— 
DM 199,— 


Tel. 089/7934534 
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Fritz ı und Karl und Hannelore 


Alle kaufen Gommodore 


Der Heimcomputer-Hit "CBM 64” von Commodore ist mitterweile fast zwei Jahre alt 
und somit quasi schon ein Opa unter den Mikros, Daß er dennoch auch 1984 ganz her- 
vorragend im Rennen liegt und alles andere als ein verstaubter Ladenhüter ist, muß 
seine besonderen Gründe haben. 
Deshalb fragten wir bereits letzte Woche ’Woran liegt es wohl?’ und nahmen den großen 
Bruder des Volkscomputers VC-20 noch mal kritisch unter die Lupe. 


Vor acht Tagen besprachen 
wir die äußere Gestalt des 
Vierundsechzigers sowie ei- 
nige Vor- und Nachteile 
seines Innenlebens. 


Die Dokumentation 
Wenn ich an meinen guten 
alten PET 2001 zurück 
denke, der viele viele positive 
Eigenschaften aufwies, so er- 
innere ich mich auch des 
Bediener-Handbuches im 
DIN-A4 mit Spiralheftung, 
das Commodore seinem er- 
sten Personalcomputer mit 
auf den Weg gegeben hatte. 
Und das mit Grausen — denn 
die Dokumentation haperte 
an allen Ecken und Enden. 
Nun, damals konnte man dem 
kalifornischen Hardware- 
Produzenten noch ein gewis- 
ses Maß an Unerfahrenheit 
zugute halten. 

Nach einem runden Jahrzehnt 
jedoch sollte sich diese in 
tüchtiges Know-How gewan- 
delt haben, denke ich. Und 
auszahlen sollen hätte sich 
das in der Konzeption des 
C-64 Handbuches. 

Leider ist das aber keines- 
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wegs besser gelungen als das 
oben zitierte Manual zum PET- 
im Gegenteil: es ist noch ein 
bißchen armseliger gewor- 
den. 


Wenn man sich die Bedie- 
nungsanleitung (eine andere 
Bezeichnung ist nicht gerecht- 
fertigt) vornimmt, so spürt 
man sogleich die Markt- 
strategie, das meiste bewußt 
zurückzuhalten und für geson- 
derte Publikationen aufzu- 
sparen, die dann für teures 
Geld an den Benutzer ge- 
bracht werden können. Das ist 
nicht ganz fair einem Pu- 
blikum gegenüber, das den 
Rechner CBM-64 vorurteils- 
los und mit offenen Armen 
aufgenommen hatte. Mehr 


Dankbarkeit vonseiten des 
Herstellers Commodore ist 
hier angebracht. 


Basic 

Schön und gut — nobody is 
perfect. Und so will auch ich 
nicht zu kleinlich mit Commo- 
dore ins Gericht gehen. Den- 
noch bedarf das miserable 
Basic einer kurzen Erwäh- 
nung. Weshalb, will ich kurz 
beleuchten: 

In Sachen Komfort haben wir 
uns inzwischen an einiges ge- 
wöhnen können. Immerhin 
warten Basic-Winzlinge wie 
z.B. der Sharp 1245 (für rund 
130 Mark) mit respektablem 
2AK-Basic auf, das eine Fülle 
anspruchsvoller Befehle und 
Anweisungen enthält. Da soll- 
te man von Heimcomputern für 
runde 700 Mark schon ein 
paar Clous erwarten dürfen. 

Dazu kommt, daß Commo- 
dore seinen 64er mit ganz her- 
vorragenden Leistungsmerk- 
malen versehen hat, mit 
Sprites, hochauflösender 
Graphik und phantastischem 
Sound, kurzum einer Spitzen- 
Technologie, die im Sprach- 
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umfang ihren Niederschlag 
finden sollte. Stattdessen 
wird der 64-User an die pri- 
mitiven Abfrage- und Ein- 
schreib-Befehle PEEK und 
POKE verwiesen, mit deren 
Hilfe er nach Urväter-Sitte 
seine Bytes beackern darf. 
Dabei hätte man dem 6Aiger- 
Basic durch Implementierung 
leistungsstarker Anweisun- 
gen in puncto Sound, Graphik 
und Speicherverwaltung ein 
noch wesentlich größeres 
Anwender-Potential sichern 
können. Hier muß Commo- 
dore bei 64-Nachfolgern noch 
meilenweit gehen... 


Bildschirm-Graphik 
Doch nun Schluß mit der 
Meekerei und nichts wie hin 
zu etwas Erfreulicherem: der 
Commodore-Graphik. Da 
übertreibt der Hersteller 
nicht, wenn er im Handbuch 
von einer "der faszinierend- 
sten Eigenschaften des 
Commodore-64” spricht. 
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schwarz 
weiß 

rot 
türkis 
violett 
grün 
blau 
gelb 


Die 16 Farben 

stehen für Vorder- und Hinter- 
grund zur Verfügung. Der 
Bildschirm besteht aus einer 
Matrix von 25 x 40 Zeichen, 
sodaß 1000 ’characters’ auf 
ihm untergebracht werden 
können. Doch ist dies freilich 
nicht alles: Bekanntlich 


setzen sich alle Ziffern,. 


Buchstaben und Graphik- 
zeichen aus Einzelpunkten 
zusammen, die ebenfalls 
Stück für Stück ange- 
sprochen werden können. 
Das gibt eine Auflösung von 
320 x 200 ’pixels’ (pixel = 
dot = Bildpunkt). Wie bei je- 
dem anderen Home-, Personal- 
und Taschencomputer auch, 
so kann man mittels PEEK ei- 
nen solchen Punkt auf seinen 
Inhalt hin überprüfen bzw. 
durch POKE einen anderen 
Wert hineinschreiben. Da- 
durch bestimmt man wie 
beim Mosaikstecken die Ge- 
stalt des gesamten Displays, 
kann also Bilder zusammen- 
basteln. 

Das ist allerdings sehr 
mühselig und 
wenn diese Bildobjekte beweg- 
lich sein sollen, umfangreiche 
Koordinaten-Berechnungen. 
Und das erst recht, wenn 
mehrere Figuren hin- und her- 
laufen (z.B. bei Spielprogram- 
men). 


Dafür gibt's die sogenannte 


Sprite-Technik; die folgender- 
maßen funktioniert und vom 
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(und über die Commodore-Taste): 


erfordert, 


orange 


braun 
hellrot 
grau 1 
grau 2 
hellgrün 
hellblau 
grau 3 


Commodore 64 recht ordent- 
lich gemeistert wird: 


Sie definieren ein Objekt (ei- 
nen Pacman, ein Auto, ein 
Flugzeug, irgendein Monster 
oder auch einen Space Inva- 
der), das Sie Punkt für Punkt 
— wie beim Mosaik — zusam- 
mensetzen und irgendwo auf 
den Bildschirm, d.h. in eine 
Gruppe beieinander liegender 
Bildpunkte schreiben. 

Nun brauchen Sie lediglich 
Bewegungskoordinaten ein- 
zugeben, worauf der C-64 in- 
tern alle nötigen Berechnun- 
gen ausführt und das betref- 


4101 ee 
OU ABE NEAR 


ou SEE 
BARN 


MELL? 


fende Objekt auf 
Bildschirm verschiebt. 
Dank dieser Sprite-Technolo- 
gie ist der Commodore 64 be- 
stens für die Programmierung 
von graphikintensiven Spiel- 
programmen gerüstet — ein 
Umstand, den Sie spätestens 
dann zu schätzen wissen 
werden, wenn Sie versuchen, 
selber eine faszinierende 
Handlung auf den Bildschirm 
zu zaubern. ° 


dem 


Software-Betreuung 
Der beste Homecomputer ist 
nur so gut wie die Software, 


THE. ERBN,. 
Du 
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die es für ihn gibt. Das leuch- 
tet jedem ein und ist ein Grund 
dafür, daß Popularität auch 
ein handfester Vorteil sein 
kann. 


Es gibt wohl keinen Heimcom- 
puter, der so mit fertigen Pro- 
grammen gesegnet ist wie 
unser Commodore 64. Selbsı 
gegenüber weitverbreiteten 
Modellen wie beispielsweise 
dem Sinclair-Spectrum oder 
Klassikern wie dem Apple Ile 
schneidet der Vierundsechzi- 
ger diesbezüglich gut ab. Je- 
der Software-Anbieter bringt 
C-64 Programme heraus, weil 
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er glaubt, sich einen diesbe- 
züglichen Verzicht nicht lei- 
sten zu können. Und dieser 
Gedankengang führt — fast 
wie ein perpetuum mobile — 
wiederum zu größerer Be- 
liebtheit des 64ers und erneut 
zu weiteren Programmen. 

In der Tat sehe ich auch hier 
. einen wesentlichen Grund für 
den fulminanten Erfolg des 
großen VC-20-Bruders. 


Fazit: 

Der Commodore 64 ist ein lei- 
Stungsfähiges Gerät, das ins- 
besondere den Wünschen des 
privaten Benutzers sehr ent- 
gegen kommt. Gutes Arbeits- 
speicher-Angebot, solide 


Vom Playlearning zum Roboting 


Vor längerem schon startete 
Commodore eine eigene 
Sachbuchreihe, die anfäng- 
lich aus drei Bänden bestand: 
”Alles über den C-64”, "Alles 
über den VC-20” und ”Logo”. 
Inzwischen sind zwei weitere 
Ausgaben hinzugekommen. 
Es handelt sich jeweils um ein 
Spielebuch für den Commo- 
dore 64 und den VC-20. Beide 
Neuerscheinungen bieten ei- 
nen getesteten Fundus an 
vielfältigen Spielmög- 
lichkeiten der bisher wohl be- 
liebtesten Rechner des 
Herstellers. 


In der Frankfurter Zentrale 
des Unternehmens gibt man 
sich von dem Erfolg eigener 
verlegerischer Aktivitäten 
nicht besonders überrascht. 
Zwar existiere bereits — be- 
tont der für den Deutschland- 
Vertrieb zuständige Ge- 
schäftsführer Alwin Stumpf - 
eine Vielzahl an Mikro-Lite- 
ratur auch und besonders 
über Commodore-Geräte. 
Dennoch: ”Der Käufer geht 
davon aus, daß der Hersteller 
immer noch am besten weiß, 
was seine Rechner zu leisten 
imstande sind. Er stuft daher 
diese Sachbuchreihe als die 
zuverlässigste ein.” 
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Hardware-Verarbeitung, eX- 
zellente Graphikfähigkeiten, 
ein toller Sound (auf den 
detailliert noch an anderer 


. Stelle eingegangen wird) SO- 


wie ein phantastisches 
Software-Angebot verhel- 
fen dem Vierundsechziger von 
Commodore zu hohem Ge- 
brauchswert. 


Die Nachteile (schlechtes 
Basic, keine Möglichkeit der 
RAM-Erweiterung, wenig 
brauchbares Handbuch) sind 
zu verkraften und durch ei- 
nige Erfahrung im Program- 
mieren wett zu machen. 


Diese Vorteile werden aller- 


Bereits in diesem Monat wer- 
den u.a. erscheinen: 


"Mathematik mit dem 
Commodore 64”: 
(Die wichtigsten Routinen) 


Das Werk erklärt alle mathe- 
matischen Hilfsmittel wie z.B. 
COS, ABS oder SGN ebenso 
wie Probleme auf so unter- 
schiedlichen Gebieten wie 
Kryptografie, Zufallszahlen, 
Logik, Folgen und Reihen, Tri- 
gonometrie, Primzahlen, Fel- 
der und ‘Matrizen, Wahr- 
scheinlichkeitstheorie und 
Statistik. 


"Grafische Kunst mit 
dem Commodore 64”: 
(Techniken für hochauf- 
lösende Grafik) 


Der Hauptteil dieses Buches 
ist der Entwicklung eines Sy- 
stems für hochauflösende 
Grafik auf dem Commodore 
64 gewidmet. Dieser leicht 
nachvollziehbare Inhalt der 
Anleitung wird durch zahlrei- 
che Anhänge ergänzt, die 
spezielle Probleme und Mög- 
lichkeiten erklären, welche 
dem C-64er-Benutzer bisher 
nicht ohne weiteres zugäng- 
lich waren. 


dings auch von Modellen an- 
derer Hersteller nachgewie- 
sen, insbesondere dann, wenn 
der jeweilige Rechner ein Ver- 
treter der Preisklasse eines 
0-64 ist. 


Weshalb Fritz, Karl und Han- 
nelore immer wieder zum 
Vierundsechziger greifen, liegt 
wohl vor allem am hohen Be- 
kanntheitsgrad des Rech- 
ners, sprich: an der exzel- 
lenten Marktstrategie der 
Commodores aus Frankfurt- 
Niederrad. 


Wenn man tausend Leute auf 
der Straße anspricht und 
nach einem bekannten Heim- 


Zu den Themen gehören u.a.: 
PEEKs und POKEs, Bi- 
närarithmetik sowie andere 
Rechenarten, die. Anwendung 
der logischen Operatoren zur 
Erzeugung von Spezialef- 
fekten, die .Anordnung und 
Verschiebung des Speichers, 
die Theorie des Plottens und 
die einfache Trigonometrie. 


Der besondere Clou dieses 
Kompendiums: Vorausset- 
zung ist lediglich die Kenntnis 
des C-64-Handbuches. Sämt- 
liche Schritte werden erklärt 
und detailliert dokumentiert. 


"Automaten und Sensoren 
zum Selbstbauen für 
Gommodore-Gomputer”: 
(Praktische Anleitungen 
für Steuermechanismen) 


Schon oft haben sich ein- 
fallsreiche Zeitgenossen ge- 
fragt, wie sie ihren selbstent- 
wickelten und selbstge- 
bauten Joystick, Schrittmo- 
tor oder gar ausgewachsenen 
Roboter an den Commodore- 
Computer anschließen kön- 
nen. Oder aber: Wie schreibt 
man Programme zur Steue- 
rung von Schrittmotoren — 
und wie kann man mit dieser 
Software sowie entsprechen- 
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computer fragt, so kann man 
mit etwa 600 Personen rech- 
nen, die ”Commodore” ant- 
worten — selbst dann, wenn 
sie selbst keinen Rechner be- 
sitzen und von Heimcom- 
putern nichts verstehen. 
Dadurch wird ein Händler 
enorm motiviert, sich mit 
Commodore-Rechnern statt 
anderer Computer einzudek- 
ken. 


Und dies führt zwangsläufig 
zu einem erneuten Schub für 
den Vierundsechziger. Wer 

- den Laden betritt, ob Fritz, ob 
Karl, ob Hannelore - alle kau- 
fen sie Commodore. 


den Bausteinen für wenig 
Geld analoge Signale sen- 
den? 


Einerseits lehrt dieses Buch 
Schritt für Schritt, eine Fülle 
von Geräten zu bauen; an- 
dererseits vermittelt es die 
Grundlagen der digitalen und 
analogen Ein- und Ausgabe - 
also die Voraussetzung für 
Roboter-Anwendung mit 
preiswerten Mikros. Pfiffige 
Freaks erhalten neue Impulse 
und (womöglich ungeahnte) 
Perspektiven für das Roboter- 
Zeitalter. 


Video-Basic-Kurs: 


Dieser Lehrgang, der in allen 
Video-Systemen erhältlich 
ist, führt unter Anleitung des 
bekannten Hörfunk-Modera- 
tors Martin Hecht (hr 3) um- 
fassend und dennoch leicht 
wie locker in die Geheimnisse 
der Programmiersprache 
Basic ein. Für Anfänger ge- 
dacht; doch auch Foitgeschrit- 
tene werden von den neuen 
Basic-Dimensionen über- 
rascht sein. 


KA. 
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Dorsch/Fischel 
Software-Recht 


SOFTRARE-RECHT 
IKKRBARURERE HATTEN 


Die Bestiemungen des Urheber- und 
Wettbewerbsrechts fur Conputer-Programse 


Dieses Buch enthält die Bestimmungen | aktuellen Berichten zufolge von den mo- 
des Urheber- und Wettbewerbsrechts für | dernen Techniken am stärksten fasziniert, 
Computer-Programme. Die Doku- | sehr häufig mit dem Gesetz in Konflikt 
mentationen sind jeweils sehr ausführ- | kommen. Die Gesetze werden ın diesem 
lich. Dieses Buch sollte ein "Muß” für | Buch aus der Sicht des Beraters für 
diejenigen sein, die Software herstellen, | Hard- und Software behandelt. 

kaufen oder verkaufen. 


Eine Pflichtiektura fir alle. die Softsare her- 
stellen. kaufen oder verkaufen) 


Berlin 1984 


Ur. Roger Dorsch 
bernd Fischet 


Die Daten: 
Es ist vor allem für Computerfreaks unter | Fischel GmbH, Berlin, 1984, 134 Seiten, 
Schülern und Studenten gedacht, die | ISBN 3-924327-03-3 


ISBN 3-924227-03-3 
HEUUNERZUE 


KANNE 


Grai/Jacob/Meindl/Weber 
Das Buch zur Fernsehreihe 
Microprozessor/-computer 


Parallel zur oben genannten Fernseh- 
serie, die im ZDF, WDR III, S Ill und BR Ill 
laufen, bringt der VDI-Verlag das Buch 
"Keine Angst vor dem Microcomputer”. 
Hier wird in leicht verständlicher Form 
Aufbau und Funktion eines Microprozes- 
sors erklärt. Gerade für Laien interes- 
sant, denn es werden keine Kenntnisse 
vorausgesetzt. Die Daten: VDI 1984, 
220 S., 28,- DM, ISBN 3-18-400586-0 


Hardware 


5xschnellere Floppy, Schnell-Save- 
Modul, lOer Tastatur, Speicher- 
erweiterungen 8K-64K RAM, Modul- 
adapter 2/3/5-fach, Telefonmodems, 
40/80 Zeichenkarten, Eprommer + 
Karten, Toolkitmodul, Joysticks, 

PIO In/Out-Module, Interface, RS 232, 
IEEE 488, und...und...und...und.. 


ugsimulatoren, Biorhyt., Psycho, Prüfen Sie 5 
Lottoberechnung, Krankheitsdiagnose, unser Angebot 
Textverarbeiter, Dateiprogramm, Schnell den Gesamtkatalog 4/84 
En aa) Su Buchhalter anfordern, für 2,50 DM (Briefmarken) 
64, Flight logic), ckcopy, 

eleterm 64, ge Disk- en 

Händleranfragen erwünscht. 


gi Rotdomweg 15 


ar 
taubschutzhauben, Resettaster, u kr 1000 Berlin 45 


Se nn Bas E tecker, Bauteile, Bücher, Tastatur- @ 080-817 3857 
# 27.10.84 maske, Disketten + Boxen, Hifi-Kabel. BIAUSNEAL SG INS 341 45 73 
= Mikroprozessoren HE 

(5/Wdh) 


u 30.10.84 NDR/RB 
2 Mikroprozessoren/ b erere u 
Mikrocomputer Informatik 02.11.84 SWF3 


(Wdh vom Monta 
105 11.84 2 02.11.84 NDR/RB Mikroprozessoren- 21.15 h 
: Mikroelektronik (3) 10.50 h Mikrocomputer Teil il 


Mikroprozessoren/ } Verknüpfun 
Mikrocomputer (7) ebd % eg die 
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U 
& 


Assemblerkurs 


Teil 8 


En 


ago. 
N 


- 34 

- 2 
- 125 

-1 

- a. 
Bevor wir uns nun einem neuen 837 
P} - 34 
Thema zuwenden, zuerst ein- N 
mal das Gesamtlisting des - 

D - 9 

letzten Kurses: 23 
- 125 
- 175 

1 WOLBY  EQU 97 u 
@ DFHBY Eau 648 ar 

3 ORG 828 9 
- 125 

4 JSR CLS 2.33 
5 LDA DFHBY 5° 
6 STA WOLBY+1 2 ds 
7 LDA #0 ur 
8 TAY 2 j2s 
E) STA WOLBY = 337 
18 LDA #83 - 12 
11 JSR ZEILE = 
- 133 
12 LDX #23 13 
13 JSR RAND = 281 
14 JSR ZEILE = 52 
15 RTS = 20s 
16 ZEILE LDX #48 33 

7 -2 
17? ZEILI STA <WOLBY),Y End) Be 
18 INY cmP /nZe 5 
193 " BNE WEIT EEG AUFW - .196 
29 INC WOLBY+1 E 25 

- 3 
21 WEIT DEX En 2 Yu 
e2 BNE ZEILI a1 na 
23 RTS s2 = 18 
24 RAND STA (LWOLBY),Y I 2 285 
25 PHA Zn 25 
- 205 
26 TYa 36, - 125 
27 cLc S u. 
28 ADC #393 = 195 
23 TAY 2 195 
38 BCC WEIT2 \\ ADAL AL 238° 
> an INUTRNIUNNUNNIN NUN :% 
32 WEIT2 PLA ı ee 
3 STA (WOLBY>,Y ASSEMBLER 16045 293 
34 INY 847 - 119 
35 BNE WEIT3 " - 319 
36 INC WOLBY+1 gs 
852 »- 25 

ı - 2 
s8 BNE RAND 1 2 ias 
48 DFILE Eau 1924 16953 - 9° 
48 DEY = 119 

41 CLS LDA #32 23 
43 BNE LABI N 

42 LDX #8 r 

je Use a 53 LDY #232 3 
=) STA DFILE+768 - 281 

a Lanı nn si LABE TA DFILE+768,X 222 
45 INK = Be 2 fas 
: s BNE LAB2 25: 
46 BNE LABI 252 
54 RTS 16878 - 53 
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Heute wollen wir versuchen, ob wir auf 
etwas Bewegung auf den Bildschirm be- 
kommen können. Und daß es nicht so 
leicht wird, soll der sich bewegende Ge- 
genstand auch lenkbar sein. Als Joy- 
stickanschluß wählen wir Port 1. Das zu 
bewegende Zeichen soll eine ”0” sein. 


1 ORG 828 
2 CLS EQU 58692 
3 CUSET EGU 53648 
"4 Joyı EQU 568321 
5 SPALT Eau 21l 

6 ZEILE Eau 214 

7? ADR EQU 209 

8 JSR CLS 

3 LOx #20 
18 LDY #19 
11 STX SPALT 
12 STY ZEILE 
13 JSR SET 
14 LOOP LDA JoYi 
15 AND #31 
16 CMP #31 
17 BEQ LOOP 
13 CMP_ #15 
13 BEQ AUS 
28 CMP #23 
21 BEQ RECHT 
e2 CMP #27 
23 BEG LINKS 
24 CMP #29 
25 BEQ ABW 
26 CMP #38 
27 BEQ AUFW 
2& CLc 
23 BCC LOOP 
s9 SET JSR CUSET 
31 LDA #15 
32 LDY SPALT 
33 STA (ADRI,Y 
34 RTS 

35 AUS RTS 

36 RECHT LDX SPALT 
37 CPX #39 


38 BEQ LOOP 

393 LDA #32 

48 LDY SPALT 
al STA (ADRI,Y 
42 INC SPALT 
43 JSR SET 

44 ELC 

45 BCC LOOP 

46 LINKS LDS SPALT 
47 CPX #98 

43 BEGQG LOOP 

43 LDA #32 

58 LDY SPALT 
51 STA, (ADRI,Y 
s2 DEC SPALT 
53 JSR SET 

54 CLCc 

Ss5 BCC LOOP 

Se ABW LDY ZEILE 
57? CcPY #24 

58 BEQ LOOP 

53 LDA #32 

[>14] LDY SPALT 
61 STA {ADRI,Y 
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82 INC ZEILE 
63 JSR SET 
84 CLuC 

85 BCC LOOP 
E68 AUFW LDY ZEILE 
67 cPY #a 

68 BEQ LOOP 
63 LDA #32 
70 LDY SPALT 
7ı STA (ADRI,Y 
72 DEC ZEILE 
73 - JSR SET 
74 CLC 

75 BCC LOOP 


Auch dieses Programm schreiben wir 
wieder in den Kassettenpuffer. Deshalb 
die erste Anweisung: 


ORG 828 


Als ROM-Routinen benutzen wir dieses 
Mal die Routine CLS. Sie wird zum Bei- 
spiel aufgerufen bei einem PRINT 
"GLEAR/HOME”. Die Ein- 
sprungsadresse ist 58640. Deshalb die 2. 
Anweisung: 


CLS EQU 58692 


Wenn wir in die Adressen 211 und 214 
die Zeile und die Spalte einspeichern und 
dann eine Routine ab 58640 aufrufen, 
dann setzt uns diese Routine die Cursor- 
position, die in 209/210 abgespeichert 
wird. Deshalb die Zeilen 3, 5, 6, 7: 


CUSET EQU 58640 
SPALT EQU 211 
ZEILE EQU 214 
ADR EQU 209 


Während den Interrupts des C-64, wird 
zum Beispiel auch die Position des Joy- 
stick abgefragt. Das Ergebnis wird in 
dem Byte 56321 gespeichert. Das heißt, 
wir haben in dieser Speicherstelle immer 
den Wert, der durch die Bewegung des 
Joysticks 1 verursacht wird. 


JoY 1 EQU 56321 


“ir ık ı ı ı% 8% 


Auch kleine Anzeigen 
bringen große Erfolge 
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Bitte, versuchen Sie doch selbst einmal 
herauszufinden, wie diese Routine ar- 
heitet. In unserer nächsten Zeitung wer- 
den wir Ihnen alles erklären. 


Auch dieses Mal wieder die ausführliche 
Erklärung eines Befehls: Wir werden den 
Dekrementierbefehl (DEC) erklären. DEC 
bedeutet immer Operand - 1. 


Welche Operanden sind möglich? 


1) Eine absolut angegebene Speicher- 
stelle in MC-Code: 
E 2D 63 


| L-Highbyte der Adresse 
Lowbyte der Adresse 
Befehlscode 


2) Eine Speicherstelle auf der Seite O 
(das sind die Bytes von 0-255) in MC- 
Code: 


| IL Adresse 
Befehlscode 


3)Eine absolut angegebene Speicher- 
stelle + den Inhalt des X-Registers in 
MC-Code: 
DE 1E 6D 


| LU Highbyte der Adresse 
Lowbyte der Adresse 
Befehlscode 


4) Eine Speicherstelle der Seite 0 + den 
Inhalt des X-Registers in MC-Code: 
D6 1B 


| IL _Adreßbyte 
Befehlscode 


Außerdem werden das Zeroflag und das 
Vorzeichenflag beeinflußt. D.h, wird 
durch das Dekrementieren irgendeine 
Speicherstelle zu 0, so enthält das Zero- 
flag eine 1; andernfalls eine 0. Das Vor- 
zeichenflag ist eine Kopie des höchst- 
wertigen Bits des dekrementierten 
Bytes. 

Beim nächsten Mal wird das obenge- 
zeigte Programm erklärt. Es wird gezeigt, 
wie man solch ein Programm schreibt, und 
wie es erweitert und optimiert wird. 
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Nachdem Vor- und Hauptprogramm ge- 
trennt eingetippt und abgesaved worden 
sind, kann das Vorprogramm eingeladen 
werden, wenn zuvor im Direktmodus 
POKE 44,28:POKE7168,0:NEW 
eingegeben wurde. 


Im Vorprogramm werden neue Zeichen 
definiert, anschließend wird zum Einla- 
den des Hauptprogrammes aufgefor- 
dert. 

Die Aufgabe des Spielers besteht im er- 
sten Bild darin, das geheime Code-Wort 
zu finden, um in die Höhle zu gelangen, 
die am rechten unteren Bildschirmrand 
abgebildet ist. 

Der Ritter befindet sich in Grundstellung 
vor seiner Burg, Kaspar (der unruhige 
Kerl) bewegt sich vor dem Wald. 

Trifft Kaspar auf den Ritter, verliert der 
Ritter einen Goldtaler (acht an der Zahl 
braucht er, um zusammen mit dem Code- 
wort in die Höhle zu kommen). 

Im zweiten Bild muß der Ritter dreimal 
den Drachen besiegen, d.h. dreimal muß 


er die Lanze tief in das Herz des Untiers. 


stoßen. Im letzten Bild braucht der Ritter 
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VC-20 + 16K 


nur noch auf das Wappen zu marschie- 
ren, um das Spiel zu beenden. Trifft er auf 
einen Stein, so bedeutet das Punktver- 
lust. Die Endbewertung richtet sich nach 
der Zahl der erbeuteten Goldtaler sowie 
nach der benötigten Zeit. Die möglichen 
Codewörter (maximal 6 Buchstaben) 
können je nach Lust des Spielers im Li- 
Sting verändert werden. 


Variablenliste: 
TI$: Zeitmessung 
SU: Goldtaler 

AZ: Position Kaspar 
AF: Farbe Kaspar 
LS: Lautstärke 
TI-T4: Tonlage 
wo$ 

AUfx): Hinweise 
was$ 

VE: Position Ritter 
60: Farbe Ritter 
HE: Zufallszahl 
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Gl: Bewegung Kaspar 

2$: Print-Position 

ZU: Wie HE 

B$: Liest das Codewort 

CODES: Codewort 

J,1,K: (Diverse) 

GH${x): Beinhalten je 2 Buchstaben 
des Codewortes 

RI$tx): Graphische Darstellung d. Ritters 
(2.Spiel) 

EN: Tab-Wert f. Ritter-Position (2.Spiel) 
FA: Position Drachenfeuer 

FF: Farbe Drachenfeuer 

P: Interne Joystick-Kontrolle 

B: Einlesevariable 

A$: Abfragevariable 

D: Zählvariable 

KO: Kontrollvariable 

GR,GF: Merkvariablen 

AHA$: Übernimmt INPUT d. Codewor- 


tes 


Y: Anfangsposition Hindernisse 
Z: Endposition Hindernisse 

WW: Bonus 

V: Punktzahl 

NU%: Abfrage 
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4 REM##VORPROGRAMMX x 

18 PRINT"" 

28 POKE36379,8 

38 PRINT"3FOLGEN SIE IHREM COMPUTER INS MITTELALTER...*" 

32 PRINT"ES GESCHAH IM 12.JAHR-HUNDERT,ALS DEM ERWUER" 

34 PRINT"EDIGEN RITTER VON" 

:36 PRINT"SVENOVIAB DAS FAMILIEN- WAPPEN GESTOHLEN WURDE * 
38 PRINT"DER UNGETREUE KNAPPE KASPAR BEKANNTE SICH" 

48 PRINT"ZU DIESER GAR ABSCHEU-LICHEN TAT.NIE,SO” 

42 PRINT"SCHWUR ER,WIERDE ER FREIWILLIG DAS WAPPEN" 

44 PRINT"ZURUECKGEBEN, " 

46 PRINT"WESICH BITTE UM RITTER- LICHE GEDULD,UM DIE u" 
48 PRINT"SLCDATEN LESEN ZU KOENNEN" 

58 GOSUB199 

S55 PRINT"J" 

68 PRINT" WERBEMSFOLGE NUN DEM RITTER INS ABENTEUER UND GE- WM" 
62 PRINT'"DSLEITE IHN ZUM WAPPEN DERER. VON VENOVIA u" 
66 GOSUB138 

78 PRINT"MIPAS HAUPTPROGRAMM KANNJETZT GELADEN WERDEN": NEW 


188 


120 


138 
149 
158 


POKE44 ‚28:FORX=8T02847 :POKEX +5129 ,PEEK (X+32768) :NEXT 
RETURN 

FORX=5128T05239 

READA : POKEX ,A 

NEXTX : RETURN 


1280988 DATA 57, 57, 125, 255, 125, 61, 41, 109 
18818 DATA 24, 138, 152, 255, 61, 24, 68, 182 
18928 DATA 65, 231, 66, 24, 24, 66, 231, 66 
18838 DATA 8, 8, 28, 73, 186, 62, 28, 24 

18848 DATA 195, 255, 182, 58, 188, 122, 54, 98 
18858 DATA 36, 24, 52, S2, 82, 74, 98, 308 
18868 DATA 52, 68, 28, 24, 28, 88, 63, 833 
18878 DATA 81, 117, 191, 238, 59, 1986, 247, 93 
18838 DATA 126, 182, 66, 66, 66, 66, 66, 255 
188938 DATA 8, 24, 608, 182, 126, 1839, 68, 126 
18180 DATA 8, 14, 59, 119, 63, 118, 55, 127 
18118 DATA 22, 28, 148, 194, 143, 57, 32, 39 
18128 DATA 184, 56, 41, 67, 241, 156, 36, 148 
18138 DATA 33, 41, 35, 49, 11, 68, 226, 65 
18149 DATA 2i2, 212, 228, 2984, 288, 34, 71, 138 
READY. 


5 REM4VOR DEM LADEN POKE44 ,28:POKE7168,8:NEW EINGEBEN !x 
58 GOSUBS8B8 :G60SUB29998 


83 PRINT"WI" 308 DATA "WAPPEN®, "RITTER", "BURGEN" ,"SPEERE" „"LANZEN“ 
98 GOSUB4598 318 DATA*"BECHER”","VISIER","ZINNEN", "PFEILE", "DORNEN® 
188 PRINT"i" :POKE36379 ,26 328 DATA"PFERDE*","STERNE" ,"FACKEL" , "GRABEN" , "TRIEBE“ 
118 GOSUBS998: TI$="809999* 338 DATA"WIESEL" "KASPAR" ,"Z IMMER" ,„"DRACHE * „ "SCHUHE *® 
129 VE=4252:C0=33944 348 DATA"SCHILD" 

- eg 488 REMx+BEWEGUNG KASPARKK« 


158 
298 
258 


25 
437 
'448 
445 
458 
455 
468 
465 
478 
488 
433 
so8 


IFSU< 1THEN8880 _ en 
GOSUBS2BHD ae AZ Bi: bi IAF=SAF+GI:IFPEEK (AZ +G 1) =SOTHEN478 
GOTO138 425 IFPZEK (A2+GI)=2THEN435 
4398 GITO449 
POKERZ ,1:POKEAF ,S:RETURN 
GOTO415 
HE=INT(CRND (I) #4) +1 
ONHEGOTO458 ,455 ,450,465 
GI=-1:60T0425 
G1=+1:60T0425 
Gl1=--22:G60T0425 
GI=+22:60T0425 
SU=SU-1:POKELS,15:POKET1,248:FORI=1TO39:NEXTI 
POKET1,8:POKELS ,9:G6G0OSUBS118:RETURN 
REMx*VARIABLEN- UND STRINGZUWE ISUNGEN* % 
LS=36878:7T1=36874:T2=36875: T3=36878:T4=36877 
2 5= "Dr" 
WOS= "DIE LOESUNG FINDEST WABISDU IN DEN HAEUSERN Wi" 
AUSCHYI="MEPLATSCH...DU BIST INEREIIDEN BRUNNEN GEFALLENG" 
AUSC2Y=S"BDU BIST IN EINE FALLE GELAUFEN! xx SCHNELL, EILE ZUM STERN I I I 


AUSCZI="BEEDLER RITTER, IM WEIS-SEN STERN ERHAELST DU 2 GOLDTALER srrrrırlım 


AUS(Y)="BIDU BIST IM KOENIG- WERKS.ICHEN STEUERAMT. u u 


24. Oktober ’84 Compute mik 


35 


(m 


oO 


DUO WODODO © 


Nennen nen en en cn en 
OU SUND- 


AUECSYI="Ewil GOLDTALER WIRD 


WASS="ABHENN MIR DAS GEHE IMEBEBISTODE -WO 
ZU=INTERNDCIIHZ21) HI 

FORI1=1TO21:READBS$ 

IFI=SZUTHENGSSUGSTS 

B£="":NEXTI:CGOTOS3O 

CODEE=BE 

FORJ=1TOSSTEPE 

GHELIJISMIDECCODES,J,2) :NEXTJ:RETURN 
DIMRISC11> 
FORI=SITO11:REACEF:RISECIISBEIBS="":NERXTI 
DATA" II 
DATA" Date 
DATA" 
DATA" 
DATA" 
DATA" 
DATA" 
bAaTa”® 
bATA" 
DATA" 
DATA y— 
DATA 4339,4414,44 
EN=16 
FA=41987:FF=5789393 
SU=-5:G61=-1:AB=1:EW=1:P=l 

AZ =4283:AhF=38075:FOR1=1T0O4: REFDB 


a7] 


61393 
6299 
gs228 
g238 
g240 
6258 


53,4523 


Bud IR ABGEZOGEN. 
AUFCE)I=S"WBIHIER ERFAEHRST DU EIBBRNNEN TEIL DES CODES 


RT 


5sa58 
Ssa35 
Ssi16a 
5185 
Ss118 
5289 
5339 
g299 
eans 
sa1lR 
6928 
6039 
8949 
6958 
8968 
61089 


8269 RETURN 
ZU=INTERNDELI KA) +1 ö 
IFI>LTHENGSES ee 
H(ZU)=B:GCI)=ZU:NEXTITRESTORE:GOTOGSS® 6358 
IFZU=G (1 )ORZU=G(B)IORZU=G (3) THENSSO nn 


GOTOSSO 


RETURN 

DEM 6933 
REM 2908 
REM vaio 
REM eg 
REM 7038 
REM 7052 
REM 7868 


REM**SP IELBEGINN%% 078 


POKE36873, 110 7888 IFVE=H4) THENGOSUB? 10: J=5:50T077B8O 
PRINT'SEBBBBBBEBBEEBEEBBBBBBBEB" 7085 HE=SRUDCISEIFHE).STHENP=2:BW=2 1 G0SUBESAH:F=1:RETURN 
PRINT"SKL KLı 7032 GOSUB?7 125:60TG760O 

PRINT"EMN Mu 7055 REM&+HINWETSRAÄHMENKK 

PRINT" ERBBISIUILLKOMMEN IN VENOY IA" 188 FRINT"IEI [0 

PRINT " EBlsKL SDRUECKEM KL" 7119 FORI=1T015 

PRINT "DMH STASTE® MN" 7128 PRINT'DI j® 

PRINT’ EREEBBEBBBBBBBBBBBEBBBBB" 7138 NEXTI 

GOSUBEDBDO IA0: PRINT ne 

GETAS: IFA&=""THENA4578 7159 PRINT" EREBRREARTUR GEFAELL IGENM® 
IFA&<)" " THENRETURN 71698 PRINT "Oil KEINNTNISNAHME Bi" : GOSUBSDAH 
REM 7178 RETURN 

REM 7209 Reis 

REM 309 REM 

REM 7480 IF 

REM#+&BILOSCHIRMAUFBAUXxK 74353 REM#+ACCDE EINGASBE%+% 

PRINT"IES" 3 TABC 1) "RSG" 7308 PR INTZS7 :FRINTWÄSE$:PFRINT 

PRINT'B aaa "SSPC(8); "IBGGAFRBGSG" ’s18 GETAHRS 

PRINT’ B WB "3SPCE): "WSOGGGGARRGGE" 7529 PRINT" EkedeidaBe "INPUT" ERRRGA" 3 AHAS 
PRINTER N MISCCGEEHCHGGGGGEFFFWSG" 7530 IFCODESSAHNSANDSU > =8THENSUSSU+2:GOTUL1O088 
PRINT’ÜSmEÄM" WEIRCGGCSCGEFFRIGEEEF" 7778 IFCODEE< YAHASTHENSUSSU-1:G0T05088 
PRINT"EFME ** SUSWFFFFFFFFEISGGGEEFWIS" 7799 REMAKHINWEISEK 

FRINT'OSCB  SFRSCGGGCHWRFFFF@BBmF" E00 FRINTZEF:PRINTWOS 
PRINT"OFF@BBEBERFFFFFFFÄBBBBBB" Ka SR ODERE 

RE eh A en u 7643 REM KERUNNENA * 

=... ee. zude on 76858 FRINTZ&: :PRINTAU&(P) 

PRINT FE CF wece ze" 7669 GOSURS110:60T03999 

FRINT" ISHERF aC ep LORTCAC E8J" 7673 REM&#+STEUERKK 

PRINT" FIERB u aa m a" 7888 PRINTZ&5 :PRINTAUS(CAY:TPRINTAUS&(CS) 
FRINT ERE IEECBEH A BESSCCATBAR " 7E35 SU=-SU-1:GOSUB3149 

PRINT" WFS ade aueBEERMFFFFHFIB" 7638 FORK=1TO399:NEHTK 

FRINT" W3BRF 76935 GOTOSaaO 


ad BEmD HBBBEBBBBERJ" 


Compuhe mi 


64289 


a" 
we" 
ua" 


PRINT" FABBEEEBE ua BE m J 
FRINT"Q BSCCGGCGB gem =B 
PRINT"O BSFFFFFFE Ed [ge =) BEA m m" 
FRINT'"O SBEEBBEBBBEBEg =" 
FRINT"BRISOLDTALER: wgı- 
RETURN 

REM&»*FANFARE Kr %* 


FOKELS,1IS 

b=1 

FÜRK=1TOEO:FOKETI ,229:POKET2 ‚238 :NEXTK 
POKET2 ,8:POKET1,8:D=D+1: IFD=4 THENSB4D 
FORK=1TO38:NEXTK:GOTOEQLS 
FORK=1TOSO:NEXTK:POKET1 ,248:FOKET2 ‚239 
FORK=1T0398 :NEXTK 

POKET1,8:FOKET2,8 

FORK= 1 TOE88 :NEXTK :RETURN 


uw u 


REM&KJOYSTICK*%* 
JI=PEEK (37137): POKE37154,127:J3=PEEK (37 152): POKES7154 ,255 
IF CJ3AND4 I =BTHENGOSUBS348: VE=SVE-22:C0=C0-22:G60T086498 
IFXJSANDS I) =BTHENGOSUB6S349: VE=VE+2Z2:CO=CH +22:GOTOG49A 
IFCJSANG 1853 =8 THENGÜSUBE34B : YVE=VE-1:C0O=CO-1:60T086448 
IFCJSANGL28)=BOTHENGGSUBES4A:VE=SVE+L1:CU=CO+1:GOTOE48B 


IFF>LTHENPOKEVE ,32:RETURN 
POKEVE,2:FOKECO ‚,4:RETURN 

KC=PEEK (VE): IFP>LTHENRETURN 

IFKO< 2 THENGOSUB788B8: VE=GR:CO=GF 
GR=YE:GF=CO :POKEVE ,8:POKECO ,8:RETURN 


REM#XxRITTER KOMMT VOM WEG ABxk 
IFVE=4534 THENGOSUB7 198:60T07590 
IFKO=40RKO=STHENGOSUB? 199:G0T076859 


IFKO=3 


2ORKO=18@ THENRETURN 


IFKO=8THENP =3: BWJ= 1: GOSU 8S598:P=1:RETURN 
IFYE=HCLDTHENGOSUB?1B9:GOTOFESO 
IFVE=SHC2) THENGOSUB? 199: J=1:60T07708 
IFVE=H<S) THENGSOSUB? 199: J=3:60T077089 


Le cu 55 


":PRINT'B"TAB<C19)7 SU 
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REM%*#GEHE IMCODE #%* 
PRINTZ&} :FRINTAUS(6) 
GOSUBEABY 

PRINT" ERRRE" > GHECJ): 
FORK=1TO288:NEXTK 
GCTOSsaga 
REMx*VORZEITIGES SPIELENDE»#+* 
PRINT"WJ":POKE36879,26 
PRINT"SZAEDLER RITTER ! 


:PRINT"m" 


REM%%*SOUND # %* 
POKEL 
POKET3,1-18:FORK=1TO1SB:NEXTK,I 


8129 FORK=1STOOSTER-1:POKELS,K } 
8125 FORI=1TOLAB:NEXTI,K eaBR 
8130 FOKETI,0:POKET2,@:POKET3,Q:POKELS,@:RETURN 000 
8139 REM+KSOUND «x 3218 
81498 POKELS,1S 3228 
8142 D=8 er 
8144 FORK=16B0TO1SA:FOKETI,K:NERTK aTae 
8145 POKETI1,9:D=D+1: IFD= 1A THENRETURN 10900 

18005 


GOTOS144 


24. Oktober 84 


82815 PRINT"SMDLEIDER IST ES DIR NICHT VERGOENNT JETZT M" 
sao28 PRINT"ZUIUND HIER WEITER NACH DEM WAPPEN ZU SUCHEN. mM" 
8825 PRINT"SIIDOCH SCHAFFST DU ES BESTIMMT BEIM m" 
8838 PRINT"ADNAECHSTEN VERSUCH ! wi" 

8835 PRINT"SCHTRITT ER ERNEUT GEGEN DEN HEIMTUECKISCHEN m" 
sa48 PRINT" AIXKNASPAR AN wJa ODER WUENSCHT ER SEINE RUESE" 
8845 PRINT"ZUOTUNS ZU PUTZEN af ??? " 

89858 GETNUE 

8855 IFNUF="J"THENCLR:GOTOS078 

sas2 IFNUFE="P"THENGOTOSBSO 

8865 GOTO3S258 

32478 PRINTY\EISIDIE BESTEH WUENSCHE DEINES VOLKES SIND MITDIR m" 
8875 FORK=1T03098:NEXTK :GOSUBSO08:GOTO 128 

Ea32 PRINT" IHEMRS VOLK VON VENOVIR WARTET GESPANNT AUF ww" 
8sas5 PRINT"ZIDIE ZUKUENFTIGEN EREIGNISSE.JETZT UND HIER Me" 
8838 FRINT"ACERFREHRST DU,WIEYIEL ZEIT DU HAST OPFERN m" 
8635 FRINT" ACMUESSEN, UM"; SU; "EEBBOLDTALERE" 

8s129 FRINT"4 MIT NACH HAUS BRINGEN ZU KOENNEN. Ba" 
8195 FRINTTIS:GOSUBELIB:END 


5,15:FOR1=228T0168STEP-1:POKETI,1+28:POKETZ2,I 


Compubs milk 


GOSLUB11095: 
GOSUBEZAA 
IFPEEK (VE) =1BOSTHENSU=SSU-1 
IFPEEK (VE) =43Z2THENAB=E 
IFPEEK (VE) =S3OTHENVE=44 
POKEVE,B: POKECO ‚O:RETURN 
REM» H+DRÄCHENKAMPF x % 
GOSUBSBUB 


FOKES36379,26:60T05900 


:C0O= 


8590 REM#«#KASFARS FALLE#K* 

s5ia FRINT"Ü":POKE 36879,156:VE=4405:C0=38197:K=1:POKELS,1S 

8528 PRINT" E99 wu" 

8525 PRINT" ana 7 ag" 18010 POKELE,15:FCRI=16T0108 

8538 PRINT Ar a san saaıa Im 10028 FOKE35373,1:POKET4,1+158 

8535 PRINT" d|I 4 Dana Fe 10025 FORK=1TOZS:!NEXTK,I:POKET4,0 

8549 PRINT" AL an m 10038 FOKEIES72,239 

8545 PRINT I wa Ama Bald Bug gr 1094a FÜRI=2ZATUIEBSTER-5:FORK=15TOASTEP-1 
8550 PRINT" a am u 189858 POKET3,I:POKELS,K:POKET2,I+29:NEXTK,I 
esss PRINT» aa nm 10055 POKET3,8:POKETZ,® 

8S5B5B PRINT" I nme 

SSES PRINT" “a zug" 

8570 PRINTTIWTIWTIW III TV" 

ESTE FNRI=ITO?:PRINT"DO ":NEXTI 

8575 PRINT ITW WI III I VDE 

ss5E0 FRINT"D"ZAUS(CF) 

8235 GCTO3BEOO 10860 PRINT"Ü" :POKE36879,9: PRINT" BHaKASPAR SAGTE ; wu" 
5530 PCKEHE #22+4353 ‚32 18863 PRINT"SCBESIEGE 3% DEN DRÄCHEN!LTTESETTETTETEREEENEIMAN 
2209 HE=INTERNDEIIKE) HL 10964 FRINT"DEDANN WIRD DER WEG ZUM WAPPEN FREI SEIN ... E" 
SE19 FOKE4359+HE +22 ,42 ’ 18885 FORK=1TO580 :NEXTK 

SE13 IFS=1THENY=43498:2=4358:W=2:%=9:60T08528 18978 PRINT " (Jeiepiejelarsug" 

S616 IFX=QTHENY=435712=4339:W=-2iK=l 128888 FRINT'ERBREEI un." 

sE22a FORJ=YTOZSTEFW 198838 FRINT ' BRwBmıd m," 

8E398 FORK=JTOJ+13ZSTEPZ2:POKET4,218 18182 PRINT'"EIRBBIS , em" 

38548 KO=PEEK (KK): IFKO=BTHENSU=SU-1 18118 FRINT'EBBWId vr Ba" 

8659 FCKEK,103:POKEK+33792,0 182128 PRINTTEMEEG cr BEN" 

3658 NENTK:GOSUBIAHH: IFAB=2THENS?OB 18158 FRINTTBBEAd re" 

8678 FORK=JTOJ+I32STEF22 18148 PRINT"WArreece ce R" 

8539 POKEK,32:NEXTK 18159 PRINT’A.. . ae ap" 

8639 POKET4,O:NEXTJI 18168 FRINT"Z 11.119" 

8635 ONBWGOTOSSIY,8518 18178 PRINT" ATI | Im" 

8796 AB=1:POKE3E379,26:POKET4,8 18158 FRINT'BAI , I Sa" 

Ss718 IFP=3THENSU=SU+2 18138 PRINTER — m" 

8728 GOTUSBaR 18288 PRINT" BA ck KDRACHENKAMPF kA HR" 
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19295 
10218 
ivo23Q 
19238 
198388 


18318 
193298 
18325 
19338 
10348 
19359 
18355 
10368 
10365 
1037 
18575 
19388 
1335 
12398 
198400 
18418 
19415 
10422 
198425 
18438 
19459 
19468 
198478 
18438 
195933 
11088 
11005 
11818 
11815 
1108208 
119825 
11938 
11188 
11128 
11138 
11148 
11159 
111698 
11178 
11158 
111908 
11208 
11218 
11228 
11238 
11248 
11258 
11268 
11278 
11239 
112908 
11308 
11318 
11488 
11588 
11519 
11528 
11538 
11548 
11558 
11333 
12098 
12918 
122838 
120838 
129848 
12958 
12968 
12978 
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nme 


IFSUZ I THENGCSUBS118:G60T08989 
FORK=1T0599 :NEXTK:PRINT"SASSULDTALER:M " 
GOTO19400 

GOSUB 190339 :PR INT" BBRRE WR ERE" ; SU 

JS=PEEK (37137): POKE37154,127:J8=PEEK (37152): POKE37154 ‚255 
IF <JSAND 16 3) =8 THENEN=EN-1:60T019408 

IF CJSAND 128) =QBTHENEN=EN+1:GOTO19488 

GOTO 1929383 

FOKEFA,81:POKEFF ,1:POKEFA-22,32:1FA=SFA+HDZiFF=FF+22 
IFFA>453B8 THENFOKEFA-22 ,32:FA=4187:FF=37898:RETURN 

KO=PEEK (FA) z 

IFKOT >32 THENSU=SU-1:EN=17:G0T019978 

HE=RND<1): IFHE<{.3THEN 123939 

FOKELS,15:FOR1=4370T04375 

POKET4,185 

KO=PEEK (I): IFKO=S5THENSU=SU-1:EN=17:POKET4,8:60T010978 
POKEI,182:POKE1+33792 ,2:NEXTI 
FOR1=437901T04375:POKE1,32:FOKE1+33792 ,0:NEXTI:POKET4,08 
RETURN 

PRINT" ıaranapgein]" : IFEN>ISTHENEN=I6 
FORI1=1TOS:FRINTTAB<ENDFRISCIJ:TNEXTI 
PRINTTAB«CEN-3)SRIECE) 
FOR1=7TO19:PRINTTABKEN)FRISCII:SNEXTI 
PRINTTAB<EN-1IFRIECLL) 

IFPEEK (4432) =32THENPR INT "I" GOTO 134658 


12088 PRINT" DER IM BESITZ DES m" 
12838 PRINT" SRECHTMAESSIGEN EI 
12184 PRINT" ZBENTUEMERS.KınsPpär 3 
12110 PRINT" HAT AUSGESPIELT 


u 1 


12128 PRINT" SBEWAHRE DEIN ERBE," 
12138 PRINT" 3RITTER YON VENOY IR" 


12148 PRINT'"BEBBEBEBBBBEBBEBEBEBBBBE " 


GOTO1a238 
SU=SU+1:EN=17:PL=PL+1 
IFPL=3THENI 1808 

G0T0 192078 

REMx+ENDSP IEL + %* 

GOSUB 11805:60T011930 

POKELS, 1S5:FOR1=228T0 169STEP-1 
POKES5873,1[ :POKET1,I:POKET2,I:POKET3,I-1B:NEXTI 
FORK=1TO1ABA:NEXTK 

POKET1,8:POKET2 ,@:POKET3,®:POKELS,® 
RETURN 


12158 FORI=1T05889:NEXTI 
12168 PRINT"J" 
12178 V=VALCTIS) 


12180 YVY=INT(SUXLAB/Y)K1OQ 
121983 FRINT” DEINE ZEITM":TI$ 
12298 PRINT" SBOLUTALER m"; SU 


12218 PRINT" ZDEIN BÜNUSM"; 
12228 PRINT" ZPUNKTZAHL m"; 


Yu 


12238 PRINT"U AU BM=NEUES SPIEL MR" 
12248 PRINT" BEB-SPIEL ENDE 


POKE36873,29:9=337932:K=160:B=5 
PRINT"":FORI=489365 T04681 


IFI>=447OTHENK = jedıS-Secuynii iän 12508 GETNUS 


12512 IFNU$S="J"THENCLR:GOTO 8978 


IF1>=44438THENK=6:B=9:60T0111S8 
TFOSSSAESTHENK IB TEÄTGN | 156 
IFI>=4333THENK =32:G60T011198 
IFI>=431ETHENK=6:8B=9:60T011199 
IFI>=4234 THENK=7:8=5:G60T011138 
IFI>=4272THENB=6:6G0T0O111398 
POKEI,K:POKEI+J,B:POKELS,15:POKET3, 188:FORL=1TO2U:NEKXTL 
POKELS,98:POKET3,8:NEXTI:FOKET3,8 
EISERTT SARERISELLOISERN "SU 


12528 IFNUE="E"THENSOSDO 
12538 GGTO12588 

153939 REM%XTITELx« 

28888 PRINT"Ü":POKE35379 


1 He Da JB aD a VI "" 


P=2:VE= 4383: co= 38175:A=8 


A=sA+HL:V=VE:GOSUBEZAI 28928 FRINT" E32" 
KO=PEEK (VE) 28838 FRINT’® 3 8 
IFKO=1OTHENSU=SU-1:GOSUE 11460: IFSU< LTHENGGTOSBHO 208948 PRINT" 8 & 
IFKO=S110RKO=13THENSU=SU+1B:GOTOLE808 2828252 PRINT" S 8 
IFKO=1Z0RKO=140RKO=7ORKO=ETHENVE =4383:C0=-38175 22068 PRINT" Zayms 3 
POKEV,S2:POKEVYE ,B:FÜOKECO,O 28878 PRINT" 9 we 
IFA=2THENGOSUB 11509 29088 PRINT" EM" 


PRINT ' SER" SU; "IM" SGOTO11248 

POKELS,15:POKETZ ‚2898:FOR1=1T025:NEXTI:POKET2 ,8:RETURN 
ZU=INT<RND<1)%89) +4338 

KO=PEEK (ZU) 

IFKO=110RKO=120RKO=130RKO=14THENI 1509 
IFKO=8THENSU=SU-1: IFSU< 1THENGOTOSDOHA 

POKEZU, 19:POKEZU+J ,6:POKELS, 15:POKET4, 1608: FORI=1T025:NEXTI 
POKET4 ,B:A=8:RETURN 


‚26 


V=5U+VYVYEPRINTVY 


REMX*SPIELENDE #* 
GOSUB 118085: PRINT"J" :G0SUB6008: POKE36879,, 110 20838 PRINTTAB(SY'E u u um" 
PRINT"SEKL KL* 28188 PRINTTABCSY'E SEE x" 
PRINT"DMN une 20118 PRINTTRBOSY'"E 8 u ww" 
PRINT" EDLER RITTER VON m EO128 PRINTTRECSY "SIE a a u" 
PRINT? Z@VENOVIA TI 10 we 208139 PRINTTAB(S "FE a ®" 


PRINT" ES IST VOLLBRACHT.m 28196 PRINT 


PRINT" DAS FAMILTENWAPPENM 
PRINT" BEFINDET SICH WIE-M* 


Compube mi 


20150 PRINT" VON M.BORMANN 13934 m" 
20168 FOR1=1T02888:NEXTI 
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29178 REM%x%#SPIELERKLAERUNG x%* 
28188 PRINT"I" 


20198 PRINT"BKASPAR GING MIT DEM GESTOHLENEN WAPPEN IN” 
28288 PRINT"DIE HOEHLE UND VERSIE-GELTE SIE MIT EINEM" 
29218 PRINT"CODEWORT.DIESES WORT BESTEHT AUS 6 BUCH-* 


28228 PRINT"STABEN. " 


20238 PRINT"ACHTE STETS DARAUF, 


20248 PRINT"EBERUEHRT.*® 


DASS KASPAR DICH NICHT" 


29259 PRINT"IM WACHHAUS KANN DER UNERSCHROCKENE RITTER" 
29268 PRINT"GOLDTALER ERBEUTEN,DA ER NUR MIT DEM CODE-" 
20278 PRINT"WORT + MIND.,S GOLDTA- LER IN DIE HOEHLE” 

28288 PRINT"GELANGT.* 
20238 PRINT’MSMITM S MZUM SPIEL 
223998 GETNU$ 


ea318 
28328 GOTO22388 
READY. 


IFNU$= "5 "THENPOKE36863 ‚205 :RETURN 


5 REM#+VOR DEM LADEN POKE44 ,283:POKE7168,8:NEW EINGEBEN !% 


18 REMoK a ak ak ak ak ak ak ak ak ak ak ak ak ak ok 


GRAPHOLOGIE zann2o+ 1x 


Graphologie ist ein spannendes und lusti- 
ges Spiel, das man sowohl allein als auch 
im Kreis der Familie spielen kann. Die 
einzige Bedingung zum Mitmachen ist, 
daß man schon lesen und schreiben 
kann. Nach dem Start des Programmes 
kann man zwischen vier verschiedenen 
Wortspielen wählen. 


Wenn nun eine der Tasten von 1-4 
gedrückt wird, fragt der Computer, ob 
man selbst einen Satz oder ein Wort ein- 
geben will, oder ob er einen Satz aus 100 
verschiedenen wählen darf. Sollte man 
selbst etwas eingeben wollen, müssen es 
jedoch mindestens zwei Personen sein, 
da der, der den Satz entschlüsseln soll, ja 
diesen nicht schon vorher wissen darf. 
Dann geht's schon los: 

Wählt man das Wortkettenspiel, wird je- 
der Buchstabe des Satzes in einen 
waagerechten Strich verwandelt. Die 
Länge des Satzes bestimmt auch die Bo- 
nushöhe. Drückt man nun einen Buchsta- 
ben, so wird dieser, sofern er mindestens 
einmal im Satz vorkommt, eingesetzt. 
Kommt der Buchstabe im Satz nicht vor 
oder wurde die Taste schon einmal ge- 
drückt, so wird ein Bonus abgezogen. 
Wenn kein Bonus mehr vorhanden ist, ist 
das Spiel zu Ende. 

Die Endpunktezahl wird durch die ver- 
bliebene Bonusanzahl und der Länge des 
erratenen Satzes bestimmt. 


Beim Hieroglyphenspiel 1 wird jeder 
Buchstabe in ein bestimmtes Zeichen 
verwandelt (jedesmal anders). Dann wird 
dem Spieler eine kleine Starthilfe von 
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zwei Buchstaben aus dem neuem Aplha- 
bet gegeben. Danach wird ein Buchstabe 
nach dem anderen durch die Anzeige 
ganz unten abgefragt. Hier bei diesem 
Spiel ist kein Limit gesetzt. Am Anfang 
muß man durch Probieren, später durch 
Kombinieren und Nachsehen auf den 
ganzen Satz draufkommen. Die Punkt- 
zahl wird durch die Anzahl der mißglück- 
ten Versuche bestimmt. Ist der ein- 
getippte Buchstabe identisch mit dem 
abgefragten Buchstaben, wird jener un- 
ter die Hieroglyphen geschrieben. Damit 
kann später wieder verglichen werden. 


Das 2. Hieroglyphenspiel hat die selben 
Bedingungen wie das 1. Hieroglyphen- 
spiel, mit dem Unterschied, daß jeder er- 
ratene Buchstabe über die Hieroglyphen 
gedruckt wird. Dadurch kann später 
nicht mehr verglichen und nachgeschaut 
werden, was für ein Zeichen ein be- 
stimmter Buchstabe war. 


Beim Wortpuzzlespiel werden die Buch- 
staben eines Wortes untereinander ver- 
tauscht. So wird aus HOMECOMPUTER 
zum Beispiel "MOERCUTEPHOM”. Eine 
zusätzliche Schwierigkeit bietet dieses 
Spiel auch noch. Je länger man sich Zeit 
läßt, desto kleiner wird die Endpunkte- 
zahl. Wird ein Buchstabe falsch eingege- 
ben, wird ein Bonus abgezogen. Wenn 
kein Bonus mehr vorhanden ist, ist das 
Spiel ebenfalls zu Ende. 


Zur leichteren Lesbarkeit der Buchsta- 


ben, wurden Buchstaben und Hierogly- 
phen mit doppelten Zeichen entworfen. 


Compute mib 


Außerdem hat dieses Programm auch 
eine Sounduntermalung, damit man 
weiß, obeine gedrückte Taste auch ange- 
nommen wurde. Alles weitere ergibt sich 
beim Spielen. 

Viel Spaß! 


Variablenliste: 

VE: Zufallsgenerator generieren 

K,Y: Zwischenspeicher (Schleifen) 
A,G,W9,N: Hilfsspeicher 

VI: Flag: 1=Hieroglyphen 1, 2=Hiero- 
glyphen 2 gewählt 

J1: Länge des Satzes 

J: Bonusanzahl 

V: Anzahl der Versuche 

P: Erreichte Punkte 

K: Zeitzählspeicher 

2% (102): Satzauswahl zur Vermeidung 
von gleichen Sätzen 

W$: Satz oder Wortstring 

WI$: Satz oder Wortstring/Hilfsstring 
J$: Speicherstring beim Wortpuzzle 
H$(81): String für Hieroglyphen 
H%(81): Speicher für Hieroglyphen 
6$,A$: Get und Gebrauchsstring 


Programmaufbau: 

1-16: Menue mit Verzweigungen 
100-505: Wortkettenspiel mit Auswer- 
tung 

2000-3009: Hieroglyphen I mit Auswer- 
tung 

4000: Zufallsgeneratorunterprogramm 
5000: Auswahl der Hieroglyphen II mit 
GOTO 2000 

5500: Werbung 

6000-9007: Wortpuzzlespiel mit Aus- 
wertung 
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20000-20001: Rücksetzroutinen 
40000: Ausdrucksunterprogramm 
50000-50004: Unterprogramm für Wahl 
zw. Satzselbsteingabe oder nicht 
50005-50007: Computer wählt einen 
Satz für Sie aus 


55000-56001: Sie geben mit Lo- 
""yikcursor einen Satzein 
60000-60100: Datastatements: 85 


Programmeingabe: 

D POKE44,35:POKE896,D eingeben. 
Zeichensatzprogramm eingeben und 
starten. 

NEW direkt eintippen. 

Hauptprogramm ohne Zeile D eingeben 
(sonst nicht mehr zu stoppen!). 

Zeile O eingeben. 

POKE 44,18 direkt eintippen. 


PHOLOGIE” direkt eintippen. 

Nun wird das Hauptprogramm mit Basic- 
Startveränderung und neuem Zeichen- 
satz gesaved! 

Ägypten, Pyramiden, Wüste... (damit 
auch brauchbar für Hieroglyphenent- 
schlüsselung). 


Sätze und 15 Wörter aus dem Bereich | Zum Schluß: SAVE CHR$(142) + "GRA- 


8 POKE44 ,35:POKE3968 ,8:RUN 
READY. 


8 POKE788,194:POKE37158,2 
1 PRINT"Ü"CHRS(C142) +CHRSCB) :DIMHSCB1) ,HXCB1),J$(59) „2X 102): VC=RNDC-TI 
© PRINT" IBRBRBISSRAPHOLOG IEM" :POKE36867 ‚25: POKE36869 ‚285: POKE36879,158:POKE65B,1 
8 
PRINT"EBBBITTE WAEHLEN SIE !* 
PRINT"MEBI .. WORTKETTENSPIEL*® 
PRINT"MEP .. HIEROGLYPHEN I" 
PRINT" .. HIEROGLYPHEN I1":iPOKE36878,15:PRINT"MEM .. WORTPUZZLESPIEL" 
POKE36874 ‚248:FOKE36875 ,215:POKE38876 ‚, 159: FORX=1TO388:NEXT 
POKE36876 ‚8:POKE36875 , 9: POKE36874 ,‚08:POKE198,8 
GETAS: IFAS=" "THENS 
18 A=VAL CAS): IFA<LORA>4THENPOKE198,0:60T07 
11 IFA=1THENA$="SBORTKETTENSPIELM" 
12 IFA=2THENAS="SBHIEROGLYPHEN IM*:V1=0 
13 IFA=3THENAS="MSHIEROGLYPHEN IIM* 
14 IFA=4 THENAF="MORTPUZZLESPIELE" 
15 SOSUBSOD98 
16 ONAGOTO198,20808 ,5008,6008 
POKE386879,158:PR INT "Bee oaRE" 3SPRINT "IRRE" AS 
PR INT * Zar ale je je ale ale ale ale ka aka" Y=QsW1S=UE 
182 FORX=1TOLEN(WE)I IFMIDSCWE,X,1)=" "THENPRINT* 
PRINT*-"; 
NEXT 
185 PRINT=PRINT " parallel" 
JI=SLEN(WSI-YiV=9:V1=0 
IFJI<1OTHENJ=4:60T0111 
IFJIXSSTHENJ=3:G0TO111 
IFJIKESTHENJ=2:60T0111 
J=1 
GOSUB40998: POKE36878,15 
FORY=1T018:POKE36875 ,288:FORX=1T020:NEXT:POKE36875,0:POKE36876 ,208 
FORX=1TO28:NEXT:POKE36876 ,O:NEXT:POKE138,8 
GETG$: IF6#=""THENI14 
G=ASC (G$) : IFG<ESORGYSOTHENI 14 
116 VeV+1SPRINTSEEE" 7: Y=Q 
117 FORX=1TOLEN(WS) 
IFG=ASC (MIDSCUE,R, LI ITHENPRINTCHR$(G)7 :V1=V1+1:Y=1:G0T0128 
PRINT"W"; 
128 NEXT 
IFY1=J1 THEN208 
IFY= 1 THENGOSUB480988: POKE36374 , 150: FORX=1TO108:NEXT:POKE36374,8 
IFY=1THENI26 
FOKE36874 ‚235: FORX=1TO28:NEXT:POKE36874 ,08:J=J-1:1FJ=-1THENSBO 
GOSUB488098:60T0114 
FORX=1TOLENWEI: IFASCCMIDECHS,X, 19) =GTHENGOSUB 138 
NEXT:GOTO114 
USSLEFTSCWS,K-1)+"K" +RIGHTSCHS,LENCWSI-X) ERETURN 
POKE36873,,27:PR INT" REBBBBBISSESCHAFFT ER" 
FORX=8T04 :FOKE36874 +8 ,8:NEXT:PRINTWIS 
PRINT" ERERIIIIBIELNURDE RICHTIG ERRATEN!":POKE36878,15 
FORN=130T0254STEP .7:POKE36874 ‚X: POKE36875 „384 -X:NEXT 
POKE3E874 ,8:POKE36875,8 
POKE36379,59:PR INT" UERIEIIBEBBEINOCH EIN SPIEL ?":PRINT"EKEM 
“ 
PRINT" mM" V> TAB< 10) "VERSUCHE ": IFJ<KOTHENJ=8 
PRINT" ERBBRE" J; TAB< 19) "BONUS" :P=J1xCJ+1)-V:POKE193,0: IFP<BOTHENP=8 
PRINT" ZKERBBI"P TABC10) "BPUNKTE ":GETGS$: IFG£="J"THENGOTO2 
POKE3E874 ‚238: PR INT "OD" :FORY=1T0788:NEXT:PRINT* 


VOSnuU2Um 


"3:3Y=Y+1:GOT0194 


AUSWERTUNG 


":PRINT'"OD 
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40 Compute mik 


218 POKE36874 ,8:FORY=1T05998:NEXTY: IFG$="N" THENSYS64821 

211 GOTO283 

se22 TCKEIE679,59:PRINT" EEE IN BONUS MEHR-!® 

581 FRINTU"WIS$ 

SsB2 PRINT" SePiippieiuNAERE RICHTIG GEWESEN! ":POKE36878,15 

593 FORZ=1T0208:FORY=228-KXTO 188 -KSTEP-5:POKES68768,Y:NEXT 

594 FORY=168-NTOE28-KSTEFS:POKE36376 ,Y:NEXTY,R:POKE36376,8 

507 GOTOEB4 

2222 PGKLE36373 ,1E3:PR INT" LER SPRINT" RN" NS: V=O 
2881 PRINT" RK Ra" V=O:WiE=SU$ 

2202 FORI1=1TO26:H#£{1)>=CHRS(35+1>5 :NEKT:FORS=1T0O36 :HXCK)=O: NEXT 

2882 FORI=1T0268:A=INT{RNDCIIKES+IIEHSLOYSHECTLIEHSCII=SHECAI EHSCAI=HSCDO) :NEXT 
2a94 FORH=1TOLENGDENTASASCCMIDESCHS,R,1)): IFA=32THENPRINT" "3:GOT029836 
LOorE A=sA-564:PRINTHSCAIFEHACHISA:Y=SYHI 

2296 NEXT 

29082 GOSUB49A9:FRINT" SERIE" HECA)S "ii = M"SCHRECH+EA4IFTABCIZI:GOSUB49888:P 
RINTHEIAI'B = m"; 

2883 PRINTCHR$(A+654) 

2218 POKE36374 ,208:POKE36875 ‚200 :POKE36876 ‚288: FOKE36878,15 

2eil FORX=1T0598 :NEXT:FOKE36874 ,B:POKESES75,8:POKE36876,8 

2812 FORKX=1TO49B0:NEXT:PRINT"D EI” 

2813 FORZ=1TOLEN(WEI:PRINT " Slapiiangeisgeiepge "ZHSCHAÄCHII:" = 377?" :POKE138,8: 
IFHZH > =BTHENZ2B24 

2914 GETGS$: IFG&=""THEN29814 

2815- G=eASCIGE): IFGTESORG>3BTHENEB1A 

eal6E G=-G-&64:1IFG=HÜCK)THENZO1S 

217 Y=Y+1:ıPOKE36876 ‚ZA0: FOKE36375,299:FOR1=1T0209:NEXT:POKE36375,8:POKE36876,88 
POKE138,9:60T02814 

29818 I=INTILEMIWEITEZI:IT=SIH1: PRINT" SIE" 7: IFVI=SITHENSOZ1 

2828 FORA=1TOI:PRINT"B"; :NEST 

2821 FPRINTLEFT$(WS,NDF 

29024 NEXT e 

39089 POKE36879,125:PRINT"INEBBBRISENDLICH FERTIG !":POKE36878,15 

3281 PRINT’ ERBE" :V3; TAB(CSI;" VERSUCHE" 

3982 P=LEN(WEI 3 -V: IFP<BOTHENP=B8 

3883 PRINT" amabBEM" ;P> TAB(C9>>" PUNKTE" 

2084 PRINT"WRERESNOCH EIN SPIEL ?3":POKE198,98:G0SUB3088 

3885 GETGS$: IFGS$S< I" J"ANDGS$<T >"N"THENSBOS 

3806 I1FG&="J"THENGOTO2 

3847 SYS64521 

3298 FORX=1T04:FORY=1T029:POKE36876 ‚228:FORI1=1T04 3sNEXT:POKE36876,8 

3989 NEXT:FORY=1TOSB:NEXTY,X:POKE36376 ,8:RETURN 

4888 A=INTCRND<C1IK26) +L:RETURN 

59298 V1=1:G0T02938 

8098 POKESES73,ED:PR INT " Lak dr ak ak ale ac ale ale ale ale ae ak ale ak ae ak ak ka aa ZORTPUZZLESPIELB" 
E281 PRINT" Bor aka Y=l:1G=1:GOSUB2UBOH 

8983 IFY>LEN{WE)THENSBAS 

6995 IFMIDECWS,Y,1I£>" "THENJSCGI=SJIEGI+MIDECWS,Y, 1): Y=Yr1:GOTO6983. 

8896 IFJE<GI<>""THENG=SG+H1EY=-Y+1:GOTOSO83 

6997 Y=Y+1:60OT06993 

E083 G=1 

ERQS Y=LENCJIS(CG)I:FORK=ITOY:HSCH)=SMIDSCISCG) ,X, 1) NEXT 

8818 FORKX=1TOY:N=INTERNDCHIKYI+LEHSCOI=SHECHI EHECK I =SHSCNI EHSCNISHSCO) NEXT 
eBlil JEG)="":FORK=1ITOY:JIECGI)SIESCGI HHSCH) NEXT 

E21l2 G=G+1:1IFJEFCG)I<>"*"THENEABS 

6913 Y=LEN(WSI:N=O 

6914 G=1:1=-9:WIS=-WF:WE=ISBCL):FORX=LEN(JSCHI)TOYIIFMIDSCWIS,X,1)=" "THENWS=WEH" " 
:I=1 

6915 IFI1=1ANDMIDSCWIS,K+1,1)°>" "THENI=BIG=G+ L:WE=WS+ISCGI EN=N+LENCJSCGI)K2 
8816 NEXT 

6917 PRINT ' Zaaiaka" ; LS 

8813 PRINT" Beck EN=INTCN/1B) : IFN=OTHENN=I 

869813 J=N:V=98:605UB48088 :POKES5878,15 

EB2EBO FORX=1T04:FORY=-254 TU2E3BSTEP -2:POKE36875,Y:NEXTY,X:POKE36875,8 

E821 POKE138,8:K=8:Y=1:M=8 

sa22 GETGE:IFG$=" "THENSB24 

8923 GOSUB48999:G=ASC (GS$): IFG>E4ANDG<IYITHENV=V+1:GOTOSB26 

8824 K=K+.1:1IFK> 198898 THENK=10088 

6825 POKE36878,15:POKE36376 ,238:POKE36376,8:G60T06922 

ED0268 IFG=ASC<MIDS<WIS,Y,1)) THENPRINT "SPD "SLEFTSCWIS,Y):Y=Y+1:M=1: IFY>LENCWISIT 
HEN?898 . 

8027 IFM=1THENM=A:POKE36374 ,288:FORX=1T078:NEXT:POKE36874,98:G0OT06929 

8823 J=J-1: IFJ=-1THENIBODO 

6823 IFMID$S(WIS,Y,1>=" "THENY=Y+1:GOT0O6598 

8938 GOSUBJ488988:G60TOSBE2 
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B:NEX 
7997 
7083 
7203 
79108 
ea088 


30994 
9885 
E1-I-75 
3297 
zaoao 
20081 
42.000 
49301 
=00098 
s8901 
52003 
58903 
59994 
s5a905 
‚59a38 
59097 
550023 
ss5901 
S5002 
55903 
55094 
55005 
55886 
55087 
55993 
55883 
55818 
56028 
58981 
so008 
seeB1 
EsBB2 
69993 
68894 
68885 
s22988 
69997 
69983 
69893 
69818 
saB11 
gBB12 
82813 
saB14 
68815 
ES" 
seB16 
sew17 
saB18 
68819 
so028 
80021 
ea022 
68823 
MUCK ® 
soa24 
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IFY>=LEN<WISITHEN?888 
IFMIDSCWIS,Y,1)=" "THENY=Y+1:G0T0O6588 

GOTOSBEBEZ 

POKE36879,158:PRINT" IBBBESPAS IST RICHTIG!" 

POKE36878,15:PRINT" EBBBi" V; TABC11I "VERSUCHE" 

PRINT" wEBRBBBN" J: TABC 11) "EBONUS" :P=INT(V+1808-K+Jx59): IFP<BOTHENP=8 
PRINT '"ERBRBI"P; TAB< 113 "PUNKTE" 

PRINT"EGEIBNOCH EIN SPIEL 777" 


FRINT"BEKS ":POKE36573,15 

FORK=1T05 : POK.E36875,200:FORY=1T029:NEXT:POKE35875,8:FOKE36876 ,288:FORY=1TO2 
7 

FOKE36376,,8:NEXT:FOKE138,0 


GETGSS: IFGE<)"J"ANDG$< "N" THEN?OBS 
IFG$="J"THENGOTO2 

sysea5s21 

POKE3E873,27:PRINT'’IEBBBEAZ EIDER FALSCH I!" 


3881 PRINT"BER" WE 
39802 PRINT" =g" 
3083 PRINTWIE 


PRINT" SERUSIIEETNOCH EIN SPIEL 777":POKE3SST8,15 
FORX=1T029:FORY=228-KTO1EU-NSTEP-E:FÜKE36876 ,Y:NEXT 
FORY=150-XT0228-KSTEPE :FOKESGETE,Y:NEXTY,X:FOKE36876 ,8:POKE138,8 
GOTO7BBE 

FORK=ATOSITHSLCH)=""CHNCK)=BENEXT 

FORK=9T059: J£CX)="":NEXT:RETURN 

PRINT" Igmspseiter ii / ERSUCHE Dur Dar | u 

PRINT" WEBBONUS 2":J7 "MM "RETURN 
POKE25373 , 125: PRINT "Iiakleil" > = 

PRINT" KISEBWIOLLEN SIE SELBST BEINEN SATZ EINGEBEN?" 

PRINT" SICI/NI":POKE188,0 

GETGS: 1IFOSCH" J"ANDGE< "N" THENSBDO3 

IFGS="J"THENSSOOO 

RESTORE : WA=WA+1: IFWA>=7OTHENFORK=OTOIBOL:ZACH)=B:NEXT:WA=O 
FG=INTCRND<1IK LOB): IFZXCFG)= I THENSOABE 

FORK=OTOFG :READUS:NEXRT:ZYCFG)=1:RETURN 
POKE36879,124:PRINT" IM GEBEN SIE EINEN SATZW EIN (5-38 ZEICHEN)" 
PRINT"IIE---------------------- EIRIBR--------2------------ - a" :POKE133,®8 
PRINT " Slelsfegetggegg" ; : Yaaılles®" 

POKE188,8:PRINT'm4 @Ka" ; 

GETGS$: IFG$=" " THENSSO84 

G=ASC (G$): IF (GIS4ANDG<ILIORG=320RG=290RG = 13THENSS5097 

60T055984 

IF<G>G4ANDG<91)ORG=32THENY=Y+1:GOT056008 

IFG=13ANDLEN (WS) J4ANDWS< I" ® THENRE TURN 

1FG=ZBANDY >JOTHENWIS=LEFTSCHS ,LENCWSI-LI:PRINT"  BRMBE"5:Y=Y-1:60T055883 
60T055883 

1FY>SOTHENSS983 

WE=WUS+CHRS(CG) PR INTCHR$(G)Y5 :60TO55093 

DATA"KOENIG HIRES HATTE TAUSENDE UNTERTANEN"® 

DATA"VIELE ARBEITER ARBEITETEN AN DER PYRAMIDE“ 
DATA"PLOETZLICH FIELEN ZWEI FEINDLICHE STAEMME IN DAS LAND EIN“ 
DATA"DREIHUNDERT SKLAVEN WURDEN GETOETET* 

DATA"DREI PYRAMIDEN SOLLTEN FUER DEN PHARAO GEBAUT WERDEN" 


DATA"SEIN SOHN WURDE NACH IHM PHARAO" 

DATA"BER SONNENGOTT WURDE VON IHNEN SEHR VEREHRT" 

DATA" JEDERMANN KONNTE SKLAVEN KAUFEN" 

DATA"KEINER WOLLTE BEIM KOENIG IN UNGNADE FALLEN" 

DATA"DREI SKLAVEN BAUTEN EINEN SARKOPHAG" 

DATA"DER KOENIG HATTE FUENF WAHRSAGER UND SIEBEN ASTRONOMEN" 

DATA"AM NIL WURDE DIE WAESCHE VON SKLAVINNEN GEWASCHEN” 

DATA"DAS SCHWIMMEN AUF DEM NIL WIRD DURCH KROKODILE BEHINDERT" 
DATA"DIE GRABPYRAMIDE BAUTE MAN AUS DREI MILLIONEN STEINEN* 
DATA’DIE GRABKAMMER IST GEGEN GRABRAEUBER GESCHUETZT" 
DATA"EINMAL IM JAHR FEIERTE MAN DAS GROSSE SONNENFEST DES GOTTES HIR 
DATA"DIE PYRAMIDE WURDE GENAUESTENS VERMESSEN" 

DATA"DIE SCHATZKAMMER DURFTE NUR DER HCHE PRIESTER BETRETEN" 
DATA"ZUM TRINKEN WURDE DAS NILWASSER VERWENDET" 

DATA"DAS KAMEL IST FUER HEILIG ERKLAERT -WORDEN" 

DATA"KEINER DURFTE DEN KOENIG UM RAT FRAGEN" 
DATA"SCHRIFTGELEHRTE HIELTEN GESCHEHNISSE AUF PAPYRUS FEST“ 
DATA"DER GOTT DER NACHT WAR DER GEGENSPIELER VON HIRES" 


DATA"IN DIE SCHATZKAMMER LEGTE DER HERRSCHER SEINEN WERTVOLLSTEN 


DATA" JEDER HERRSCHER HATTE DEN OBERBEFEHL UEBER GANZ AEGYPTEN" 


Compube mib 


SCH 
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69825 


68026 
go027 
60028 
800823 
60038 
60031 
60932 
60933 
60034 
60835 
30836 
NS IGNA 
60937 
60938 
680833 
68248 
60841 
60942 
60943 
80B44 
E8945 
60946 
60847 
80848 
EITER* 
600849 


398051 
688952 


DATA"DIE LEICHENFEIER WURDE IMMER AM 


LZOGEN" 


DATA"NUR PRIESTER DURFTEN DEN PHARAO. BERUEHREN"“ 
DATA"EINE SEUCHE DEZIMIERTE EIN VIERTEL DES 
DATA"DER MOND WURDE ALS SCHLAFENDER HIRES 
DATA"KOMPLIZIERTE GERAETE MACHTEN DEN 
DATA"HEISSER SAND WAR DAS SYMBOL DER WUESTE* 


DATA"IN DIE GRABKAMMER LEGTEN SIE MUMIEN UND 
DATA"EIN HERRSCHER NANNTE SICH GLEICH WIE DER 
DATA"AUCH WAEHREND DEN SANDSTUERMEN WURDE 


DATA"ZU MITTAG BEKAM JEDER ARBEITER EINE HAND 


HELLLICHTEN TAG 


VOLKES" 
ANGESEHEN" 
PYRAMIDENBAU MOEGLICH" 


SARKOPHAGE * 
SONNENGOTT" 
GEARBEITET" 
VOLL LINSEN" 


DATA"DIE STEINE WURDEN PER SCHIFF HERBEIGESCHAFFT" 


DATA"DAS ENDE DER ARBEITSZEIT 

L » 

DATA"DIE LEUTE LEBTEN HOECHSTENS FUENFZI1G 
DATA"KLEOPATRA WAR DIE BERUEHMTESTE KOENIGIN” 
DATA"DIE SCHIFFE WAREN SEHR STABIL GEBAUT" 


DATA"ES GAB NUR SEHR WENIGE ORSEN IN DER WESTE* 
DATA"DIE KAMELE WAREN REINE TRANSPORTMITTEL*® 
DATA *"GEFAEHRLICH WAREN IN DER WESTE DIE 


SIGNALISIERTE EiN HOR 


JAHRE LANG® 


GIFTSCHLANGEN" 


DATA"IN DER NACHT HERRSCHTE SEHR TIEFE TEMPERATUR" 
DATA"AM TAG GAB ES MEISTENS FUENFUNDVIERZIG GRAD IM SCHATTEN" 
DATA"DAS KAMEL KANN ZEHN TAGE OHNE WASSER LEBEN" 


DATA"DIE SCHRIFT DER AEGYPTER NENNT MAN HIEROGLYPHEN” 

DATA*"DIE SPINNE WAR DAS SYMBOL DES BOESEN" 

DATA"GETREIDE UND LINSEN WAREN DAS HAUPTGERICHT DER SKLAVEN UND ARB 
DATA"VIELE ARBEITER VERDURSTETEN BEIM BAU DER PYRAMIDE” 


DATA"DER KOENIGSSOHN HIESS AGALON JOSEA PATES" 
DATA"DIE SKLAVEN WAREN NUR EINHEIMISCHE 


88053 DATA"VIELE BAUMEISTER WAREN MIT DER KONSTRUKTION 


SHAEFTIGT" 

58054 DATA "HANDELSSCHIFFE BEFOERDERTEN EINE 
68855 DATA"RAMSES DER DRITTE WAR EIN BERUEHMTER 
5980856 DATA*’DIE BILDERSCHRIFT WAREN SEHR BERUEHMT 
88857? DATA"DIE TOTENMASKE WURDE MIT GOLD VERZ IEHRT" 


69458 DATA"DER NILSCHLAMM BRACHTE FRUCHTBARKEIT VEBER 
689853 DATA"KAMEL”" 

EB3868 DATA"PYRAMIDENLABYRINTH" 

89361 DATA "UEBERSCHWEMMUNG " 

60862 LTIıATA"PHOENIK" 

EBBE3 DATA"GOLDOMASKE " 

EO8654 DATA"SCHATZKAMMER”" 

68865 DATA"WASSERFALL" 

E2A66 DATA"SANDSTURM" 

80957 DATA" IRRERENGE " 

E29863 DATAHFRACHTSCHIFF" 

E0383 DATA"SKLAVENTREIBER" 

E09978 DATA"DURCH EINEN WASSERFALL SANKEN DREI SCHIFFE 
E98971 DATA"GIE BILDERSCHRIFT WURDEN VON 

ALT" 

68972 GATR"DIE SCHLANGE WAR SEHR BELIEBT ALS 

63873 DATA"DER LEOPARD WAR WON KLEOPATRA ALS 

ALTEN” 

60974 DATA"AUF DEM MITTELMEER WURDE DIE FRACHT MIT 
SCHIFFT" 

80875 DATA’KAIRO 15T DIE HAUPTSTADT YON 
3989876 DATA"DIE BERUEHMTESTEN PYRAMIDEN STEHEN IN 
620977 DATA"ALEXANDRIAR WAR DIE WICHTIGSTE 

38873 DATA"AUS ASSUAN WURDEN DIE STEINBLOECKE 

698973 DATA’ABU SIMBEL IST EIN WICHTIGES BAUWERK 
89888 DATA”"HEUTE WIRD AEGYPTEN bIE VERE]INIGTE 
ANNT® 

60881 DATA"DIE ARABISCHE WUESTE IST EINE HEISSE 
68982 DATA"IN DER WUESTE STEHEN VEREINZELND KAKTEEN" 
890833 DATA°’DER STEIN VON ROSETTE IST WICHTIG FUER DIE 


38884 DATA*"IN AEGYPTEN LIEGT AUCH DIE LIBYSCHE WUESTE" 


309858 DATA"JEDER STEIN WIEGT EINE HALBE TONNE ODER MEHR" 


UNTERTANEN DES PHARAO" 
DES BAUWERKES BES 


MENGE HANDELSGUETER" 
ABSOLUTER HERRSCHER*" 
UND WEIT VERBREITET* 


DAS LAND" 


69831 DATA"STAUSEE*" 
68892 DATA "KROKODIL* 


60034 DATA" TUTENCHAMUN“ 
68835 DATA"OASE* 

EO836 DATA "KARALIANE " 
688937 DATA"SONNENGOTT" 
6008938 DATA"KAIRO" 

DATA "KATARAKT" 
DATA "RAMSES" 


DER AEGYPTER" 
SCHR IFTGELEHRTEN GEM 


GRABBEIGABE" 
LIEBLINSSTIER GEH 


GROSSEN SCHIFFEN VER 
REGYPTEN" 

GISE*" 

HANDELSSTADT" 

GELIEFERT" 

IN AEGYPTEN* 

ARABISCHE REPUBLIK GEN 
SANDWUESTE" 

GRAPHOLOGIE* 


WURDE DAS LAND NEU VER 


HANDELS IM ROTEN MEER" 


589835 DATA"NACH DEN " UVEBERSCHWEMMUNGEN 

AESSEN*" 

50836 DATA"DER PRIESTER WAR DER HANDLANGER GOTTES" 

68987 DATA"DER GOLF VON SUES IST AUSGANGSPUNKT DES 

699833 DATA"MEMPHIS" 

68889 DATA"ABU SIMBEL* 

68938 DATA"KLEOPATRA" 

© 

24. Oktober ’84 Compute mib 


69933 DATA"TAL DER KOENIGE* 
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Die ehemaligen Hitmaschinen aus der Spielhalle — die Flipperautomaten - halten Einzug in das hei- 
mische Wohnzimmer. Es gibt inzwischen haufenweise Flipperprogramme, nicht nur für die 


Commodore-Computer. 


Mit der immer steigenden Anzahl der Softwareprogramme wird nun das Wohn- und Kinderzimmer zur 


ehemals heißgeliebten Spielhalle. 


'Wir testeten zwei sehr gute Flipperprogramme für den C-64, den David’s Midnight Magic und 


Slamball. 


Bei David’s Midnight Magic erscheint 
nach dem Laden das komplette Spielfeld 
auf dem Bildschirm. Das Spielfeld be- 
steht aus 2 Ebenen, jede Ebene wird da- 
bei von einem eigenen Flipperpaar 
kontrolliert. Der Spieler hat zu jeder Zeit 
den Überblick über das gesamte Spiel- 
feld, gezielte Schüsse mit den Flippern 
sind möglich. Bestechend hier der Bewe- 
gungsablauf und die fast originalgetreue 
Konzeption eines Flipperautomaten. Zu- 
satzeffekte wie Mehrfachbonus, Freiball 
und sogar Tilt lassen zusätzliche Span- 
nung und Unterhaltung aufkommen. Per 
Tastendruck kann hier das Rütteln am 
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Flipperautomaten simuliert werden, der 
Ball bekommt eine andere Richtung und 
bereits verlorengeglaubte Bälle können 
so ”gerettet” werden. 

Bis zu 4 Spieler können bei David’s Mid- 
night Magic ihr Glück versuchen und den 
Kampf um den Highscore aufnehmen. 


Fazit: 

Ein ansprechendes Flipperspiel, Grafik 
und Akustik sind Mittelmaß. David’s 
Midnight Magic zielt auf spielerische 
Qualitäten ab, so können enorme Punkte- 
zahlen erreicht werden. Das Programm 
wird auf Diskette geliefert, der Preis von 


ca. DM 130,- ist meiner Meinung nach 
viel zu hoch. 


Slamball 
Das Spielfeld erscheint nach dem Laden 
von Slamball nur als Teilausschnitt. 
Slamball ist, im Gegensatz zu David’s 
Magic, ein Flipperspiel mit4 Ebenen. Da- 
bei kontrollieren ebenso viel Flipperpaare 
das Spielfeld. Das besondere an Slam- 
ball ist, daß das Spielfeld je nach Position 
der Kugel ”gescrollt” wird. Dies wird ge- 
macht, da das gesamte Spielfeld gar 
nicht auf den Bildschirm paßt! Die Grafik 
ist ausgezeichnet, auch witzige Effekte 
EEE EUR MW 
2 3 2 2 — = 5 
u aM MU Mi MW 
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fehlen nicht. 
So hat die Flipperkugel ein Gesicht und 
sie wird bei verlorenem Ball total einge- 
stampft. Das Spiel ist sehr schnell und 
überdies nicht einfach zu spielen. Er- 
schwerend ist dabei die Tatsache, das 
die Flipperpaare mit dem Joystick ge- 
steuert werden. Auch hier fehlt die Tilt- 
Funktion und Mehrfachbonus nicht, im 
übrigen läßt sich aber kaum ein Bezug zu 
Original-Flippern herstellen. 


Fazit: 

Slamball wird auf Kassette oder Disk ge- 
liefert und liegt mit ca. DM 130,- eben- 
falls in einer Preisklasse, die mir zu 
hoch scheint. 

Es macht viel Spaß den Slamball zu spie- 
len, hat aber mit Original-Flippern wenig 
zu tun. 


Aufgrund von Kundenanregungen in- 
nerhalb und außerhalb Europas, gelang 
es der Firma DIGIMAT aus Österreich in 
dem _Leiterplatten-Entwurfs-System 
LAYOUT 8000 einfache Handhabungmit 
beachtlicher Flexibilität zu kombinieren. 
Für die professionelle Entwicklung einer 
Platine brauchen Sie nun nur noch einen 
Commodore Rechner mit Floppy und ein 
DIN A3 Plotter. High-Resolution-Graphic 
oder andere Hardwareerweiterungen 
werden nicht benötigt. 

Im Gegensatz zu althergebrachten Kle- 
betechnik ist der Bildschirm ein sehr ge- 
duldiges Medium, welches Ihnen einen 
völlig neuen Arbeitsstil erlaubt und zu 
enormer Zeitersparnis führt: Ideal für 
Kleinbetriebe, Kleinserien oder Proto- 
typen. 

Das Programmpaket ist als LAYOUT 700 
auch für die Serie 700 Rechner lieferbar 
und wird, laut Herstellerangaben, in 
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Eine originelle Variante der Unterhaltungsspiele, aber leider sehr teuer. 


für GBM 620/720 


Kürze auch für den Homecomputer C-64 
zu bekommen sein. 

Das System besteht aus zwei Modulen, 
die über ein Menueprogramm ange- 
wählt werden: 


MODUL I 

Mit Modul 1 werden Layouts interaktiv 
auf dem Bildschirm erstellt. Die Zif- 
ferntasten bewegen einen imaginären 
Zeichenstift, der dünne und dicke Leiter- 
bahnen hinterläßt, Durchkontaktierun- 
gen und IC-Anschlüsse setzt oder ent- 
fernt. Makrofunktionen unterstützen den 
Aufbau von Bussystemen. 

Dies entspricht auf sehr natürliche 
Weise dem Leiterplattenentwurf, den Sie 
bisher von der Klebetechnik gewohnt 
sind. 


Technische Daten: 
- Arbeitsfläche auf 4032 bis 8296 frei 


Ri 


Compute mib 


Layout-Leiterplattenentwurfsystem 


wählbar 

—1 oder 2 lagiges Arbeiten 

- stufenlos bis zum Format Doppel- 
Eurokarte 

-200x245 Einheiten von 1/20 Zoll 
(Serie 600/700) 

- 3 schichtige Lagen (720/620) 


Modul 2 
Modul 2 gibt die auf Diskette ge- 
speicherten Layouts auf einem DIN-A3- 
Plotter mit IEC-Bus Interface als PCB 
Layout, Bohrplan, Lötstopmaske und Be- 
stückungsaufdruck reprofertig aus. Trei- 
berprogramme bestehen bisher für die 
Plotter: 
COMMODORE 8075 
WATANGABE MP 1000 
WATANGABE MIPLOT 
GOULD DS 10 
sowie alle Plotter mit HEWLETT- 
PACKARD-GRAPHIC-LANGUAGE. 
Die Treiber können über Menue aufgeru- 
fen werden. 
Größtmögliche Arbeitsfläche wird im 
Maßstab 2:1 in 4 Teilzeichnungen aus- 
gegeben. Parameter, wie Leiterbahn- 
breite, Durchmesser der Kontakte und 
ähnliches werden von Ihnen bestimmt 
und auf Diskette abgespeichert. 


Ein professionelles Programm, das Ihnen 

helfen wird, Ihre Eigenentwicklungen in 

einem Bruchteil der bisherigen Zeit zu 

erstellen. 

Bezugsauelle: Digimat, Wien 
(tm) 
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uper-Rallye 


Formel 1 im Wohnzimmer _ tür den VC-20 + 16K 


Wagen Sie es, die gefährliche Strecke mit Ihren Rallye-Auto zu befahren?! Hindernissen müs- 
sen Sie rechtzeitig ausweichen. Kommen Sie von der Fahrbahn ab, verringert sich Ihre 
Geschwindigkeit. 

Joystick anschließen und Vollgas!! 
Super-Rallye besteht aus zwei Teilen. Im ersten werden die Datas für den neuen Zeichensatz 
geladen und das Maschinenprogramm erzeugt. 

Der zweite ist das Hauptprogramm. 


28 PRINT"ÜSRZEICHENSATZ POKEN":PRINT "EIER 123456 789BCDEFG,":POKE36869 ‚207 
25 REM ZEICHENSATZ EINLESEN 

86 FOR1=7168T07639:POKEI,B:NEXT 

38 READA: IFA=- 1 THEN6O 

48 A=71868+8+A: FORI=8TO7SREADB : POKE 1 +N,B:NEXT:GOTOSO 

58 REM MASCHINENPROG- RAMM EINLESEN 

68 PRINT"BEESMASCH INENPROGRAMM PO- KEN" 

65 FORI=4864T05415:READX:POKEI,X:NEXT:iPOKE36869, 132 

833 REM DATAS:AUTO- 


1898 DATA48,99,126,99,24,24,219,255,219 1887? REM :WASSERLACHE 

1881 DATA49,898,232,114,187,93,14,23,26 1888 DATAS54,132,48,12,3,3,12,498,192 

1892 DATAS®,198,23,78,221,186,112,232,88 1889 DATASS,8,32,112,56,126,254,92,8 
1883 REM :CRASH 1818 DATASS,3,12,498,192,1932,48,12,3 

18984 DATA51,2,7,3,7,15,7,2,8 1811 REM :FAHRBAHN 

16985 DATAS2,64,233,253,255,255,223,92,8 1812 DATA2,1,2,4,8,16,32,64,128 

12936 DATAS3,98,123,224,224 ,240,224,64,2 1813 DATA3,128,64,32,16,8,4,2,1 


1814 DATA4,128,123,128,128,128,128,128,128 
1815 DATAS,1,1,1,1,1,1,1,1 
7 1816 REM :TONNE 
1829 DATA6,8,6,39,126,30,6,2,2 19817 DATAS7,698,135,1893,129,195,183,195,68 


1821 DATA7,98,935,128,126,129,96,64,64 1815 DATA44,66,9,55,66,66,66,68,8 
1188 DATA-i 1819 REM :FREHNCHEN 
19938 REM--- MASCHINENPROGRAMM --- 


20888 DATA165,254,164 ,252,153,08,17,165,253,153,98,149,234 ,234,169,9,133 
2818 DATAS98,133,1982,169,22,133,1988,133,1984,169,17,133,39,133,181,169 
2828 DATA149,133,1983,133,185,162,2,160,225,136,177,98,145,109,177,182 
29838 DATA145,184,152,208,244,198,93,198,101,198,183,199,105,202,208 
2848 DATA233,239,939,169,22,136,169,32,145,93,152,208,248,234,234,169 
2858 DATA198,133,98,166,8,164,1,189,69,3,153,0,16,169,8,153,9,148,208 
2868 DATA232,193,98,2898,233,153,198,283,41,164,1,136,163,58,153,9,16 
2878 DATA169,2,153,0,148,165,1,24,185,19,168,185,08,16,201,4,288,1,208 
2838 DATA169,7,153,9,16,169,2,153,9,198,169,22,133,19,198,2,288,57 
2889 DATA165,162,41,3,248,259,178,202,292,228,3,248,243,165,3,201,255 
21988 DATA208,6,224,0,208,2,193,1,291,0,208,6,224,1,208,2,2308,1,134 
2118 DATA3,232,138,18,198,19,108,133,9,165,162,41,14,249,259,234,133 
2128 DATA2,24,144,55,165,3,248,51,201 ,255,248,25,165,1,24,105,1,281 
2138 DATA11,48,11,169,255,133,3,169,8,133,9,24,194,27,133,1,24,144 
2148 DATR22,165,1,56,233,1,281,2,16,11,169,1,133,3,169,32,133,98,24 
2158 DATA144,2,133,1,234,1993,4,248,27,165,162,491,31,178,189,8,16,208 
2168 DATA37,1693,55,157,8,16,169,3,157,8,148,169,1,133,4,24,1944,208,165 
2178 DATA162,941,31,178,183,90,16,2088,18,169,57,157,8,16,169,2,157,0 
2138 DATA143,234 ,234,169,498,133,98,173,32,195,41,128,208,6 ,230,252 
FIR DATA1I69,50,133,.993,173,17,145,41,16,203,7,.193,252,159,49,133,98 
8208. DATA2I4,165,252,183,0,1493,133,253,139,0,17,133,294,165,38, 157 
e218 DATAB,17,169,6,157,9,149,234 ,234,173,17,145,41,9,288,9,165,2351 
2229 DATASS ,‚,233,5,144,2,133,251,173,17,195,41,8,2908,9,165,251,24,185 
2238 DATAS,176,2,133,251,165,251,74,74,133,99,169,255,229,99,141,18 
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2248 DATA144,234 ,234 ,24,165 ,254 ‚248,93 ,201 ,55,2498,18,281,57,208,2,133 
2258 DATAG ,‚,24,144,106 ,234,169,54,166,252,202,157,8,17,169,3,157,0,149 
2260 DATA232, 163,55, 157,0,17,169,3,157,0,149,232,169,56,157,8,17,169 
2278 DATA3,157,9,149,165,162,41,128,248,5,198,252,24,144 ,2,238,252 
2238 DATAI16S,252,189,0,17,133,254,189,8,149,133,253,169,48,157,8,17 
2298 DATA169,6,157,9,149,165,251,24,185,28,176,2,133,251,234,239,166 
2308 DATA251,249,8,160,255,136,208,253,202,208,248,234,162,8,169,8 
2318 DATA149,937,202,208,251,234,98,169,250,133,251,24,144,225 


ı POKE44,38:POKE43,1:POKE7688,8:RUN i POKE44 ,30:FOKE43,1:POKE7689,8:RUN 
READY. READY. 
J 


28 GOSUB28899:REM TEXT,POKES 
38 GOTO 1888:REMSTART 

48 FORI=TITOTSTEPIE-38:SYSS%:t IFPEEK (C)=BTHENI=TI:W=W+1:NEXT:GOTO3888 

188 REM CRASH 

118 TD=T-TI:AN=AN-1:PO=PEEK (252) +4352: POKEPO-1,51:POKEPO,52:POKEPO+1,53:1P0=P0+33 
732 

128 GOSUBS8888 :POKEGE ‚283 

138 FORI=1ST0O8STEP-B8.1 

148 POKEV, 1:POKEPO+INTCRND<1)%*3-1), INTCRND (13x23 x5+2:NEXT:POKEGE ‚8: POKEV,AF 

158 GOSUBS 1098:60SUB 1598: T=TI+TD: IFAN>8GOTO 1920 

288 REMSCHLUSS ; 

218 PRINT"EERESLEIDER HAST DU ES NICHT GESCHAFFT,DIE STRECKE DURCHZUFAHREN“ 
228 PRINT"BEUND SO IN DIE WERT- LUNG ZU KOMMEN." 

238 PRINT"WIRZBIDRE,SCKE EINE TASTE FR,AR EIN NEUES SPIEL!" 

258 GOSUBS19198:POKE198,9:WAITI38,1:60T01 

1888 REM START 

1882 IFD=1THENGOSUB 18988 

1885 GOSUBS3119 

1083 POKE36373 ‚,31:POKE368693 ‚297 :POKE37 137 ,8:POKE37154,127:REM JOYSTICK EINSCHALT 
EN 

1818 W=8:G0OSUB 1598 

1828 REM ---AMPEL--- 

1848 PRINT"AA ":FORI=1T03:PRINT"ZIMEAIl":NEXT:PRINT" A ill" ; 

1859 FORI=1T022:PRINTTAB (8) "ELLLELELED * :NEXT 

10868 POKE4378 ‚48:POKE33162 ,6:605SUB51819 

1188 POKE37311 ,2:POKET2,195:FORI=1T0588:NEXT:POKET2 ,8:FORI=1T0588 : NEXT 

1118 POKE37333 ‚7:POKETZ,195:FOR1=1T0588:NEXT:POKET2,8:FORI=1T0598 : NEXT 

t128 POKE37311,8:POKE37933 ‚8:POKE37955 ,5:POKET2 ‚,225:FOR1=1T0588:NEXT:POKET2,8:FO 
RI1=1T0580: NEXT 

1139 T=TI+TD:POKEE ,‚8:60T048 

1588 REM STARTBILD 

1581 POKE®,16:POKEI1,8:POKE2,18:POKE3,8:POKE4 ,2:POKE6 ,9:POKE251,258:POKE252,18:3PO 
KE18,1 

1582 POKE253,@:POKE2S4,1i 

1512 PRINT"IBISHASEN: ERS" 3 : IFAN< YOTHENFORI=1TOANIPRINT"O *3:NEXT 

1529 PRINT:PRINT"WSBRIVERBRAUCHTE ZEIT: v;98-INTCCTD/69)%*188+8.5)/1088"SEC.* 
1538 PRINT"MBISHERIGE STRECKE: "z1%4 710088 "KM" 

1535 IFAN=OTHENRETURN 

1548 PRINT" EIBDRE, SCKE JOYSTICKKNOPF ZUM LUSFAHREN! ":GOSUBS1918 

1558 JT=-C<PEEK 37137 )AND32)=8): IFJT<>1GOTO1559 

1560 GOSUBS1998:RETURN 

30889 PRINT" PEREDII@BEPBBWESSANME OVER" 

3818 POKE37 137 ,62:POKE37 154,255 

30858 FORI=1TO17STEP2:POKETI1,TQCI):POKET2,TACII:POKET3,TACI):FORI1=1TO9B8xTa(I+1)ı 
NEXTII,I 

3059 GOSUBS0888:FORI=1TO1SBB:NEXT 

3868 GOSUBS1988:PRINT "AR" :FOKE36869, 194:POKE36879, 122 

3878 PRINT"BEINE "RGEBNISSE:" 

3988 W=Wx4 7/1888 :VD=-<(Wx1989898937908#+3.6 ; 

3038 PRINT" ERESPTRECKE : WW" KM" SPRINT" EBII ESCHW. 1" VD "KM/H" 

3188 FORKXX=1T0SB: IFW<=HC (XXI THENNEXT:GOSUBS1818:60T05808 

3119 KaRKXiKX=39:FORIT=SSOTOX+ISTEP-1:HCXII=HCCI-II:NEXTIHCCK)=W 

35128 FOR1=128T0254:FORJ=B8TO2:POKETI+J,IT:NEXTJ,1:G0SUB598983 

3138 PRINT"WMSIRAVO !M-U HAST ES GE- SCHAFFT,IN DER _ANG-" 

31321 PRINT"BLISTE AUF "LATZ"X:PRINT"BZU KOMMEN. ":GOSUBS1818 

31408 IFX)19C0T05008 

3158 PRINT"BRRS-U DARFST DICH IN DIE _ANGLISTE EINTRAGEN!" 

3168 FORI=8TOI185STEP2:POKET3,MCII:POKET2,M(I):FORJ=1TO75%MCI+1):NEXTJ, 11G0SUBS88 
08 

3288 FORI=19TOX+1STEP-I:HCHCII=SHCESCI-IIENEKTEHOHR)="" 

3218 GOSUBS 1899:PRINT"WEANGLISTE":PRINT"=========":FORI=1T01O 

3228 F=INTCRND<CIIK«7TI: IFF< SBANDF < ZANDF $ 75ANDF < >EGOTO3228 
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3238 POKEG46 ,F:PRINTRIGHTS(STR$SCII ,LENCSTRSCIII-1I:PRINT"ERBI"HCCIITAB<SI"KM "HCS$ 
CII:NEKT 

3235 GOSUBS1919: IFX=33THEN62B88 

3249 TA$S=LEFTSC'" REITER" ‚2 +2): TAS=TAS$+ "IRRE [EI 
3258 POKE37137,08:POKE37154,127:REM JOYSTICK EINSCHALTEN 

3269 FRINT " BDOARIIERIKTRIKIEBTEBESN IT OYSTICK STEUERN!" 

3278 OP=8 

2238 FOR1=8T0498:NEXT:PRINT’Z 
32938 J1=-C<PEEK (37 152)AND128)=9):J2=-C <PEEK (37137 )AND16)=98): TS=-<CCPEEK (37137 )AND 
32)=8) 

3398 IFJITHENGP=OP +1: 1FOP=57THENOP=® 

3318 IFJZTHENOP=OP-1:1FOP=-1THENOP=56 

3328 IFTSTHEN3418 

3339 IFJL=OANDJ2Z=BTHENS2SB8 

3488 6G0T03288 

3418 IFOP=56THENS989 

3428 IFOP=SSTHENIFLENCHCSCKI I YBOTHENHCSCKISLEFTSCHOEIK) „LENCHCSCKYI-1):G0T03588 
3421 IFOP=5560T03598 

3438 HCSCK)=HCSCKI +ZESCOP I: IFLENCHCSCKI I PITHENHCSCK)I=LEFTSCHEFCRI,9I = 

3588 PRINTTA$HC$(X):POKET3,228:FOR1=1T018:POKET3,8:60T03238 

5888 PRINT"WBN ASTE DRUECKEN!":POKE133,0:WAIT198,1:%=99:60T03218 

E888 FORI=128T0254:POKET1,1I:NEXT:FORI=1TO3:FORJ=254T0218STEP-3:POKETI,JINEXTJ,TIS 
GOSUBSOBDH x 

6198 POKE37137 ,62:POKE37 154,255 

7883 PRINT " ERdebiang er 
7818 PRINT"U3-SM -> NEUES 9PIELE" 
7188 POKE198,9:WAIT193,1:GETG$: IFG&< >" Bi" THENIFGS<C >" 8" THEN? 108 

7118 IFGS="W"G0T01 

7128 GOSUBS1909:GOSUB 10599:60T01 

180888 REM RANGLISTE EINLESEN 

189018 FRINT"NEERBOLL DIE _ANGLISTE EINGELESEN WERDEN ? awmn/amE IN) ":GOSUB 
51918 

18928 POKEI198,8:WAITI98,1:GETGS: IFGSC >" J"ANDGS<S)"N"GOTO19928 

18838 IFG$="N" THENGOSUBS 1898:RETURN x 

18848 PRINT "ERBE ATENKASSETTE EIN- LEGEN, ZURECHTSPULEN UND EINE IASTE DRUE 
K- KEN!" 

189598 POKE138,8:WAIT193,1 

18868 PRINT"EREA' "LAY >' DRUECKEN!"IWAIT37151,84,84:PRINT "RU ! " 

18878 OFENI1,1,0,"RANGLISTE 1" 

18888 FORI=1T059: INPUT#H1,HCCI):SNEXT 

18838 FORI=1T018: INPUT#1,HC$<I):NEXT:CLOSE1:D=2:G0SUB5 18088 RETURN 

185988 REM RANGLISTE SPEICHERN 

18581 IFD=1THENGOSUBS 1818 :RETURN 

185198 PRINT" OREBFS-RTENKASSETTE EIN- LEGEN, ZURECHTSPULEN UNB EINE |ASTE BRUE 
IK- KEN! * 

18511 GOSUBS1818 

18528 POKE138,98:WAITI198,1 

18538 PRINT"EIBEB'_ECORD' WUNDE "LAY >' DRUECKEN!":WAIT37151,64,64:PRINTIREEK I " 
18548 OPENI,1,1,"RANGLISTE 1" 

18558 FOR1=1TOS9:PRINT#I,HCCII:SNEXT 

18568 FORI=1TO19:PRINT#1,HCSCI):NEXT:CLOSE 1:RETURN 

2009892 POKE3535$9 ,192:G60SUB5 1898:PRINT "IE" :POKE36879, 122:POKE37137,62:POKE37 154,2 
55 

209818 FRINT'Z zu Du Du En RETU EEER" 

28811 PRINT R BRRLE ui 

ze01l2 FRINT wu Sk ur m ug" 

28913 PRINT" SKK & u" 

28814 FRINT" wy vw r ww 

28815 PRINT'EIIESIUE ug Zu ZU FREU FU Zu 

20816 PRINT RAZER ER 72. X" 

20017 PRINT'IF mE RE EEE ww" 

28218 PRINTEIIU RAN EN x" 

28819 PRINT"F NPFN WIUIUZWUF 1" 

28828 PRINT" TABCI2EI" 

28821 PRINT" (C) 1984 BY m" 

28838 PRINTTAB<14)" | | ":PRINTTAB (14) "44 LH": PRINTTAB (13) "MSOFTWARE " 

28948 PRINT"TIRD"SPC CIE "50 | BRERETRER RE | DALE | BEER EN ERREGER GE | "" 

28958 PRINTSFC(123"QIERBEBHLM | UN BEAUARRRRRN | " 

28888 FRINTSPCLI2EI "D— 

228078 GOSUBS 1018 

EBIOE C=6:5%=45E4 1 AN=3: TO=5499 

23118 IFD=BTHEND IMZES(SSI:FORI=85TOSB:ZES(I-85)=CHRSCI)Y:NERT 

2811 IFD=BTHENFOR1=193TO218:ZESCI-167)=CHRECTISNEXT:ZESCSIIS" "IZES(54)=","IZES 
52)= 
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BRBMREME->"ZESCOP>"< 


iM -> _ANGLISTE SPEICHERN" 


40010 
40028 
400838 
40940 


499858 
49968 
409184 
493959 
4933938 
499391 
493992 
0998 
s8118 
58128 
58138 
51808 
51818 
51828 


z8il2 IFD=-OTHENZEECSSI="RUB*"IZESFCSSI="END”" 

29148 T1=36874:T2=T1+1:T3=T2+1:GE=T3+1:V=GE+1:G60SUBS92989 

293339 IFD=BTHENDIMA(7),HC<C59) ,HC$(C18),TQC18) ,„MC187):FORI=9OTOIQ:HSCIYI="... "NEXT 

D=i 

38988 RESTORE:FORI=1TO7:REARDACII,BCLI:NEXT:DATA183,1,281,3,281,1,212,3,212,1,219 

‚4,212,4 " 

38021 DATA225,3,231,1,235,1,231,1,225,1,231,1,235,1,231,1,225,3 

SB8882 FOR1=-1TO1S:READTQ<CII:NEXT 

38883 FOR1=9TG137:RERDMEII:SMERT 

3sa188 FORI=1TO7:POKET3,ACIY:FORWA=S1ITOS3KBCII:NEXT:POKETS,8:NEXT 

38118 PRINT"IJ WUENSCHEN SIE EINE ANLEITUNG ? AB ZNBEINIG" 

38128 POKE133,0:WAIT198,1:56ETGS$: IFGET Y"S "ANDSSC>"N"THENSB 129 

38125 GOTUBS1898 

538138 IFG$&="N" THENRETURN 

298148 POKE3E8693,207:PRINT"\d ZBSFIELANLEITUNG" PRINT" BZ=======-=======" 

38158 PRINT" 3KDU SOLLST MIT DIE- SEM SPIEL EINE RALLEY SIMULIEREN." 

39168 PRINT" DER COMPUTER ERZEUGT PER ZUFALL EINE BAHN, AUF DER DU FAHREN 

SELLE 

32178 FRINT’=E BECoB" 

38188 PRINT" BEQEB" 

38198 PRINT" ECCeeD” 

38288 FRINT" EOCBzCD" 

56218 PRINT" ceeecC"” 

28228 FRINT” Ceocc" 

se221 PRINT” EEOCeD"* 

38222 PRINT" ECLCED* 

39238 GOSUBS1919:G0OSUB49399 : GOSUBS 1888 

38398 PRINT" HINDERNISSE*":PRINT" üi===========* 

38318 PRINT" Z1.DA ES GERADE VOR- HER GEREGNET HAT GIBT ES PFW,äTZEN AUF DER 
STRASSE." j 

38328 PRINT" ZDIESE PFW,ATZEN BRINGEN” 398588 PRINT" ZBSTEUERUNG: * 

sa321 PRINT’O 3PICH ETWAS AUS DER * 38581 PRINT’4 ==========" 

38322 PRINT" ZBAHN,WENN DU DAR, ZBER" 393582 PRINT'"B ZIDIE STEUERUNG ERFOLGT" 

38323 PRINT" SFREHRST." 38583 PRINT"D ‚ZBER DEN JOYSTICK: " 

39338 PRINT" ZAUSSERDEM GEHT DABEI" 38518 PRINT"3 NACH OBEN:SCHNELLER“ 

38331 PRINT"3 DEINE GESCHWINDIGKEIT " 38512 PRINT"2 NACH UNTEN: LANGSAMER 

38332 PRINT" DIETWAS ZUR, HACK." . 38514 PRINT"3 NACH RECHTS/LINKS:" 

38333 PRINT"BaM DAS SIND DIE PFW,ATZEN:" 38516 PRINT"3 RECHTS/LINKS" 

398334 PRINT"ERh? Ka 58528 GOSUBS51819:G0SUB49999 : GOSUBS5 1999 

32348 GOSUBS51819:G0SUB493999:G0SUB5 1889 32698 PRINT" AM BZIEL DES SPIELES IST," 

39a488 PRINT" 2. TONNEN 38682 PRINT"O AIN EINEM BESTIMMTEN" 

3a41a PRINT'ZII WON-ZEIT ZU ZEIT ER-" 39684 PRINT" ZEITRAUM (38 SEC.)" 

38412 PRINT" SSCHEINEN TONNEN AUF“ 38686 PRINT" ZEINE MOEGLICHST " 

38414 PRINT" SDPER FAHRBAHN. " 39688 PRINT" Z5ROSSE STRECKE " 

38416 PRINT" SPIESEN TONNEN MUSST" 38518 PRINT" ZZURM, SCKZULEGEN. *® 

38418 PRINT" DU AUSWEICHEN,SONST"“ 30612 PRINT'"E SDAFE,SR HAST DU" 

38428 PRINT" 15T DEIN FAHRZEUG" 38614 PRINT" 33 FAHRZEUGE ZUR " 

38422 PRINT” ZSWERLOREN!* 38616 PRINT" VERF, GUNG. " 

38424 PRINT'"EI DRS SIND DIE TONNEN: * 38618 PRINT" DAS SPIEL BEGINNT " 

394256 PRINT'E3 9 9" 38628 PRINT" HIT EINER AMPEL!" 

39438 GOSUBS1819:G0OSUB49999 : GOSUBS 1888 

38858 PRINT" HINWEIS :SAUSSERHALB DER BAHN FAHRST DU IMMER LANGSAMI" 

38668 GOSUBS1818:G60SUB43399 : GOSUBS 189898 :POKE36383 ,192:RETURN 

489088 DATA1IS1,4,8,8,191,1,195,2,1993,1,202,4,808,9,202,1,287,1,212,1,215,2,212,2,21 


9,1,215,2 


DATAZ8?7,1,202,4,80,80.1,202,1,207,1,2082,1,195,2,8,8,195,1,8,8,195,2 
DATRB,8,195,1,2082,1,195,1,191,2,8,80,191,1,8,8,191,2,8,8 
DATA191,1,195,1,191,1,183,2,8,0,183,2,98,8,193,1,191,2,183,1,202,4,8,3 
DATA1S1,4,8,8,191,1,135,2,139,1,282,4,8,8,283,1,207,1,212,1,215,2,212,2,21 


9,1,215,2 


DATAEB?,1,2982,4,0,8.1,202,1,207,1,2082,1,195,2,8,8,195,1,8,8,195,2 
DATAB,8,1935,1,282,1,195,1,191,2,8,8,191,1,8,8,191,2,0,08 
OATA1IS1,1,195,1,191,1,183,2,8,8,183,2,8,8,2082,1,191,2,183,1,175,4,8,8 
END 


: K NTEHESESENE! BSLRETURNI" 
POKE198,8:WAIT1S8, 1:GETGS: 1FGS< >CHRSC 13) THENA33S1 
RETURN 
POKET1,8:POKET2 ,8:POKET3,8:POKEGE ‚8:POKEV, 15:RETURN 
POKE828,3:FOR1=329T0835:POKE1,8:NEXT:POKEI,3:POKEI+1,1 
FOKE344 ,5:FOR1=845T0852:POKEI,B:NEXTIPOKEI,4 
POKE868 ,2:FOR1=86 1 TO8367:POKEI,BENEXT:POKEI,2:POKEI+I,1:RETURN 
FOR1=46T08STEP -2:POKE36865 ,76-1:POKE36867 , INTC1I/2) 2: NEXTSRETURN 
POKE36864 ‚24: POKE3E856 ‚8 :POKE36867 ,174:POKE36865 ,38: 1=8 
FORI1=1T022:POKE36864 ,34-11POKE36866 , 1: NEXT:IRETURN 


24. Oktober ’84 Compute mik 


49 


EEE. COMMODORE 64 BASIC v2 Ka 
64K RAM SYSTEM 38911 BASIC BYTES FREE 


: Basic-Kurs 
Teil 7 


Hallo und herzlich willkommen zum siebten Teil unseres Basic-Kurses. In dieser Lektion 
werden wir einmal keine neuen Befehle lernen, sondern uns mit der Analisierung der 
letzten Übungsaufgabe befassen. 


Die gestellte Aufgabe war, ein Programm 
zu entwickeln, welches half, eine ge- 
heime Zahl zu erraten, indem es Angaben 
darüber macht, ob eine geschätzte Zahl 
zu hoch oder zu niedrig war. 

Als ersten Schritt mußte eine Zahl einge- 
geben werden, die später zu erraten 
war. 

Wir verwenden dafür einen INPUT- 
Befehl, der gleichzeitig einen Text bein- 
haltet und schreiben: 


10 INPUT "GEBEN SIE DIE ZU 
RATENDE ZAHL EIN :”;Q 


Wird diese Zeile ausgeführt, so erscheint 
der Text auf dem Bildschirm und die ein- 
gebene Zahl wird in die Variable ’Q’ 
geschrieben. 


Danach kam eines der Hauptprobleme, 


nämlich diese auf dem Bildschirm ge- 


schriebene Zahl verschwinden zu 
lassen. 

Es gibt in Basic einen Befehl, der den 
Bildschirm reinigt. Da wir diesen Befehl 
jedoch noch nicht kennen (wir werden ihn 
in einer späteren Lektion vorstellen), 
mußten wir uns auf eine etwas unele- 
gante Art weiterhelfen. 

Wir nutzen dabei die Tatsache, daß der 
Commodore nur 25 Zeilen auf dem Bild- 
schirm darstellen kann und lassen ihn in 
einer FOR..NEXT-Schleife einfach 30 
Leerzeilen printen. Dadurch wird alles 
was sich auf dem Bildschirm befindet 


50 


nach oben gerollt und verschwindet 
damit. 
Wir geben also ein: 


20 FOR T = 1 T0 30 

30 PRINT 

40 NEXTT 

Damit wäre dann auch dieses Problem 
gelöst. 


Als nächstes benötigen wir nun einen 
weiteren INPUT-Befehl sowie eine Kom- 
mentarzeile, welche auffordert, nun mit 
dem Raten zu beginnen und die erste Lö- 
sungszahl einzugeben. 

Wir schreiben: 


50 PRINT "DIE ZAHL IST VER- 
STECKT” 
60 INPUT "RATEN SIE :”’;RA 


Der erste geratene Wert wird in die Varia- 
ble "RA’ geschrieben. 


Nunmehr muß ein Versuchszähler ge- 
baut werden, welcher die Anzahl der 
Rateversuche immer um eins hochzählt. 
Hierfür verwenden wir die Variable 'ZA’ 
und schreiben: 


70ZA=ZAH+1 
Jedesmal wenn der Interpreter diese 


Zeile erreicht, wird ZA um eins nach 
oben gesetzt. 


Compube mik 


Wir haben bis jetzt drei Variablen belegt, 
die Inhalte sind: 


0 = ZU ERRATENDE ZAHL 
RA = GERATENE ZAHL 
ZA = ANZAHL DER VERSUCHE 


Wir können jetzt eine Hauptver- 
gleichsroutine schreiben, die die beiden 
Variablen ’Q’ und ’RA’ miteinander ver- 
gleicht. Wenn ’RA’ größer ist als 'Q’, so 
soll geschrieben werden, daß der Ver- 
such zu hoch liegt. 

Wenn ’RA’ kleiner ist als’Q’, so soll aus- 
gegeben werden, daß der Versuch zu 
niedrig ist und wenn die beiden Variablen 
gleich sind, soll das richtige Ergebnis 
ausgeben werden. . 

Wir schreiben: 


80 IA RA ic 0 TEHN PRINT "ZU 

90 IF Rn > OQ THEN PRINT "ZU 
HOCH” 

100 IF RA= 0 THEN PRINT "RICHTIG 
GERATEN DIE ZAHL WAR :”’;Q 


Danach muß noch das Ergebnis des Ver- 
suchszählers ausgegeben werden. 
Die Zeile muß lauten: 


110 PRINT ”SIE BENÖTIGTEN 
BISHER ”;ZA;” VERSUCHE” 


Außerdem muß noch eine Zeile vorhan- 
den sein, welche das Spiel abbricht, 
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wenn das richtige Ergebnis gefunden 
ist. 


120 IF RA= Q THEN END 

Damit der Versuchszähler arbeitet, muß 
auch noch ein Rücksprung vorhanden 
sein, der eine neue Eingabe erfordert. Zu 
diesem Zweck springen wir einfach nach 
der Rate-Eingabe-Routine zurück, 
welche ja bekanntlich in Zeile 60 steht 
und einfach mit einem GOTO-Befehl aus- 
geführt wird. 


130 GOTO 60 


Damit wäre unser Programm auch 
schon fertig. 


Das vollständige Listing sieht folgender- 
maßen aus: 


80 IFRA< Q THEN PRINT "ZU NIEDRIG” 
90 IFRA> OQ THEN PRINT "ZU HOCH” 
100 IFRA= -Q THEN PRINT "RICHTIG GERATEN. DIE ZAHL 


WAR ” 
110 PRINT! 
VERSUCHE” 


”SIE BENÖTIGTEN BISHER 


"1A" 


120 IF RA = Q THEN END 


130 G0T0 60 


Sie sehen, daß es auch diesmal wieder 
gar nicht so schwer war. Nächste Woche 
geht es dann mit dem eigentlichen 


Kurs weiter. 


Ihre Aufgabe: Überlegen Sie sich, wie 
man den Computer daran hindert, bei 
richtiger Lösung einfach abzuschalten 
und ihn dazu zu bringen, daß er nach- 
fragt, ob man noch ein Spiel möchte. 


Viel Spaß! 


10 INPUT "GEBEN SIE DIE ZU RATENDE ZAHL EIN :”; 


20 FOR T = 1 T0 30 
30 PRINT 
40 NEXT T 


50 PRINT "DIE ZAHL IST VERSTECKT” 


60 INPUT "RATEN SIE :”’;RA 
70ZA=ZA+1 


(tm) 


"CF 
Lori nern u ist da! 
Gibt die schnelle Referenz für Befehle, Optionen und Formate direkt an den ARENAN - 
; .. N 


BASIC 
Funktionen 


STEUER- 
TASTEN 


Schneller 
Überblick 


TASTATUR-MEISTER® 


® Befehle vollständig vorhanden, mit voll 
ausgeschriebener Befehlsbeschreibung 


® Alle Steuertasten übersichtlich 
SCHABLONE aus: @ Widerstandsfähigem Kunststoff 


@ Dauerhafte Druck 
@ Eingeteilt nach Nutzungsbereichen 


Händeranfragen erwünscht. Hersteller: 
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FÜR COMMODORE 
VC 20 und C-64 


x a DM 29,90 
x a DM 29,90 
x a DM 29.90 
x a DM 27.00 


@ SIMON’S BASIC 
® MULTIPLAN 
@ BLANKO 

(für eigene Anwendungen) 
Schablonen auch für IBM-PC erhältlich. 
Das 1.1/2.0, BASIC 1.1/2.0 WORDSTAR, MULTIPLAN 
LOTUS 1,2,3, BLANKO 


SYNTAX- 
NOTIZEN 


# 


STATUS- 
BYTE 
Referenz 


FARBEN 
Tabellen 


Senden Sie bitte TASTATUR-MEISTER: 

D per Nachnahme (zzgl. NN-Gebühr 
und 5,- DM Versandgebühr) 

OD per Scheck (zzgl. 5,- DM Versandgebühr) 
(liegt bei) 


PLZ.... 


FRIWA-Vertrieb - Reisingerstr. 6 - 8München2 - Tel. 089/53 04.50 : Telex 5213775 
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Fortsetzung v. $. 52 


Drucke ”"G (NN) = ";G:” cm/sek? 
Drucke ”G (Ort) = ”;0;” cm/sek? 


Und schon bereitet das Original-Listing keine großen Schwierigkeiten mehr. 


18 REMGRAVITATIONSPROGRANM 

28 INPUT"GEOGRAPHISCHER ORT ?"3L$ 
21 INPUT"GEOGRAPHISCHE BREITE ?";B 
22 INPUT"HGEHE VEBER NN ?*7H 


41 PRINT 
42 PRINT"ORT 


43 PRINT"BREITE 1 = *:B 
44 PRINT"HOEHE UEBER NN = " 


30 6=9378,.049#(1+.095233*(5IN<B})t2-.890906x(5SIN(2xB))t2) 45 PRINT 


31 0=G6-(H#.0089838352) 
35 PRINTCHR&(147) 
48 PRINT"SCHWERKRAFT-BERECHNUNG ® 


46 PRINT"G <NND 
47? PRINT"G (ORT) = "1307" 


58 END 


" CM/SEKt2” 
CMSEKt2" 


(sk) 


LESERBRIEFE 


Für den 6-64 gibt es ja jede Menge Soft- 
ware. Jetzt habe ich gehört, das eine GP/ 
M-Software für den C-64 im Handel ist. 
Stimmt das, und wo kann ich diese 
bekommen? 


R. Siebert, Gießen 


Redaktion: 

Für den C-64 gibt es CP/M als Steckmo- 
dul mit Begleitdiskette von der Fa. Com- 
modore. Mit diesem Modul kann zwar 
CP/M-Software gefahren werden, doch 
leider nur Commodore CP/M. Programme 
z.B. von Apple sind mit diesem Modul 
nicht lauffähig. 


Xuy 


Nach langem Zögern habe ich mich nun. 


entschlossen, ein Diskettenlaufwerk für 
den 6-64 zu kaufen. Mir ist aber die 
Floppy 1541 viel zu langsam. Kann ich 
auch andere Laufwerke, z.B. von BASF 
anschließen? 


W. Abel, Hamm 


Redaktion: 

Die Floppy 1541 verfügt über einen spe- 
ziellen Controller und ein spezielles DOS. 
(Disk Operating System.) Es ist ein soge- 
nanntes "intelligentes" Laufwerk. _ 
Ein Umbau von Controller und das An- 
dern vom DOS ist zwar rein theoretisch 
möglich, der Erfolg steht aber in keiner 
Relation zum Aufwand. 

Also mein Tip: Finger weg vom Umbau. 


um 


Wie kann ich bei meinem VC-20 Rechner 
ein Programm, das ich zuvor von der Kas- 
sette geladen habe, ohne umständliches 
RUN-Eintippen zum Laufen bringen? Von 
einem Bekannten habe ich gehört, daß es 
bei Commodore-Computern eine Mög- 
lichkeit der Abhilfe gibt. 
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Redaktion: 

Seit den Tagen des seligen PET 2001 ist 
bei allen Commodore-Rechnern die Mög- 
lichkeit dafür gegeben: wenn Sie ein Pro- 
gramm laden möchten, das anschließend 
automatisch starten soll, drücken Sie 
bitte Shift und Run/Stop sowie an- 
schließend die Wiedergabe-Taste der Da- 
tasette (Play). 


“ur 


Ich besitze einen Commodore-64 und 
möchte gern in Maschinensprache pro- 
grammieren. Brauche ich dazu irgend- 
welche Zusatzgeräte (Steckmodule u.ä.) 
oder kann ich das direkt machen? Muß 
ich dazu POKEn oder PEEKen? 


A. Michalski, Berlin 


Redaktion: 

Zunächst dürfen wir Sie in einer 
grundsätzlichen Sache beruhigen: Zu- 
satzgeräte, wie Sie befürchten, brauchen 
Sie keine, um Ihren Rechner mit Maschi- 
nensprache zu füttern. Poken müssen 
Sie allerdings, doch läßt sich das in weni- 
gen Zeilen nicht beschreiben. Wir verwei- 
sen Sie dazu an den Buchhandel, wo Sie 
diverse gute Bücher zu diesem umfang- 
reichen Thema finden werden. Wollen 
Sie jedoch jediglich fertige Maschinen- 
programme laden, so ist die Sache ganz 
einfach (nicht einmal poken bzw. peeken 
müssen Sie dazu): Sie laden ganz einfach 
mit LOAD, sofern Sie als Massen- 
speicher eine Datasette haben, so lautet 
die korrekte Syntax hierzu: 

LOAD "PRG-NAME”’,1,1. 

Für Floppy-Besitzer gilt die Entspre- 
chung: 

LOAD "PRG-NAME”,8,1 


Mein Name ist Rüdiger Barth. Ich besitze 
einen Commodore VC-20 und habe mir 
dazu einen Matrixdrucker BROTHER 
EP22 gekauft, der, wie mir mein Händler 
versicherte, mit passender Software und 
einem speziellen Kabel Ausgabegerät für 
den VC-20 genutzt werden kann. Leider 
läßt sich die Kombination nicht exakt 
initialisieren. 


R. Barth, Detmold 


Redaktion: 

Sie haben sicher vergessen, folgendes 
einzugeben: OPEN 2,2,2,CHR$ (2) 
+CHR$ (0):CMD2:LIST. Nun ist sicher- 
gestellt, daß alles reibungslos laufen 
wird. 


Yu 


Seit ca. eineinhalb Jahren beschäftige 
ich mich mit Computern. Nach dem Ein- 
steigegerät VC-20 habe ich nun einen C- 
64. Da Ich diesen auch für betriebliche 
Aufgaben einsetze, stehe ich vor einem 
Problem. Ich habe bereits mehrere Text- 
verarbeitungsprogramme, es funktio- 
niert auch alles sehr gut, bis auf die 
Tatsache, daß die Rechner mit der 
amerikanischen Tastatur ausgerüstet 
sind. (Qwerty). Jetzt habe ich gehört, 
daß es eine Tastatur für den 6-64 mit 
deutschem Zeichensatz gibt, konnte aber 
bisher keine Bezugsquelie erfahren. 
Können Sie mir weiterhelfen? 


B. Großmann, Freiburg 


Redaktion: 

Uns ist leider nichts darüber bekannt, ob 
und wo es eine solche Tastatur gibt. Viel- 
leicht können unsere Leser weiterhel- 
fen? 


YUYNNUMMMMNAMSNMN US HU MYUH 
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EN 


Basierend auf den Grundregeln des Dun- 44 giepunkte, die dann auf die verschiede- 

geons + Demons Fantasy Rollenspiel- nen Charaktere verteilt werden müssen. 

Systems hat die Firma Sierra-On Line 

das erste computergesteuerte Rollen- 

spiel herausgebracht. Das umfangreiche 

und wirklich phantasievolle Spiel wird 

auf 2 Disketten geliefert. Die Aufgabe ;Nach dem Einladen der Player-Disk er- 57 

scheint zunächst eine Art Weltkarte, per # 
‚Tastensteuerung kann nun ein gewählter 7 

acht, die vom bösen Kaiser Minax ver - 

örpert wird. Dieses Rollenspiel ist nicht?;den Bildschirm gebracht werden. Die‘ 
n der üblichen Form von Grafik- uche erstreckt sich über insgesamt 7 
extadventures gehalten. Zu Beginn ha eitphasen, wobei die erste auf einem 
er Spieler die Möglichkeit, sich seine entralkontinent in der Vergangenheit 
eigenen” Helden zu gestalten oder de beginnt. Der Kontinent driftet mit der Zeit 
chon vorgegebenen von Diskette zu la- useinander, es entstehen 7 verschie- 
en. Eigene Helden können per Menue-;:;dene Zeitzonen mit jeweiliger Welt- 

steuerung kreiert werden, bestimmte #Karte. : 

Charaktereigenschaften werden festge- #;; Zunächst muß der Held mit Nahrung und? 
egt. Anschließend erhält man 100 Ener-:: Waffen ausgerüstet werden. Während: 
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des Weges müssen allerhand 
bestanden werden, wichtig ist vor allem, 
Adaß die Stärkepunkte nicht den Nullwert 
3erreichen. Die Bewegungen des Helden 
kin der ersten Spielebene können sein: 
zu Fuß, per Schiff oder Zeittransmitter. 
älst man zum König von Lemuria vorge-# 
sdrungen, kann man wichtige Informatio- & 
anen von ihm bekommen und sich darü- 
zberhinaus noch mit weiteren Ausrü-& 
#Stungsgegenständen versehen. Die® 
Chance nach einiger Zeit das Schloß des & 
bösen Minax zu erreichen, ist jetzt etwas # 
agrößer. Dort wechselt die Szenerie, man & 
sfindet sich in einem 3-D Labyrinth. Doch $ 
a das Ziel ist noch lange nicht erreicht, Mi- $ 
anax und die. Prinzessin sind erneut & 
verschwunden. 
Alltima II kann zu jeder Spielphase ab- # 
Ägespeichert werden. Der enorme Umfang # 
dieses. Rollenspiels und die neue Art Ad- & 
Aventures zu spielen, hat Faszination und 
4 Neugier bei uns ausgelöst. Obwohl wir es # 
“noch lange nicht gelöst haben, warten wir % 


PPPPPPPPPE de PPP EP PPPEPPF E, M PS SE, „ 
DLLÄLLLLLELELELLÄEGEEELEEEGEEEELLGGGE ÄÄGE, EEE 


290999999090 


Roeske Verlaß 
ucompute mit" 6 
Fuldaer Straße 


Ja, ganz richtig — das Spiel "Fireball für den 
6-64”, welches uns Andreas Bachler auf so 
freundliche Weise angeboten hat, haben wir 

überprüft und gleich in dieser ”"Gompute mit” 


auf Seite 12 abgedruckt. 


3440 Eschwege 


-6 
Programn spireballs" für den C 4 


n! 
Sehr geehrte Damen und Herre 
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Für Ihre Mühe schon je tzt herzlichen Dank. 


Was brauchen wir von Ihnen: 
1) ausführliche Spielbeschreibung 


(Scheuen Sie sich nicht, ein wenig Reklame für Ihr Produkt zu 
Anlagen machen) 
„ Programn-kassette 2) Variablen-Liste und Programmaufbau-Tabelle 
> ProgrammzeileR 3) komplettes Listing, ausgedruckt oder in Form von Bild- 
. Spieteriäuterung, schirmfotos. 
- Variablen 
- Rückporto 


4) Datenträger (Tonband-Kassette oder Diskette). 
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Schreibmaschine und Matrix-Drucker in einem... 


Electronic Printer BROTHER EP-44 


Ein exklusiver "Gompute mit’-Testbericht 


Sie kennen das: man hat ein neues Gerät erworben, 
schlägt die beigefügte Gebrauchsanweisung auf und 
liest etwa folgendes: "Zu Ihrer Entscheidung beglück= 
wünschen wir Sie. Mit unserem Produkt haben Sie ein 
Erzeugnis modernster Technologie erworben und Fort= 
schrittlichkeit bewiesen ...". Durch derart weihe= 
volle Worte fühlt man sich bestätigt und wendet sich 
um so optimistischer dem jeweiligen Artikel zu. 

Ganz anders bei meinem neuen Brother EP-44! Erstens 
nennt sich die mitgelieferte DIN-A4-Broschüre nicht 
großspurig "Handbuch" oder "Manual", sondern schlicht= 
weg "Bedienungsanleitung"”, zum anderen kommt sie So= 
gleich zur Sache - so prosaisch, daß sich beim frisch= 
gebackenen EP-Besitzer die anfängliche Euphorie schnell 
in Ernüchterung wandelt. 


Der EP-44 hatte bereits zwei Dieeinenfeiertenihnalsneu- Freaks, die sich ein kindlich- zer darf ich sagen: beide 
‘Vorfahren’: Vor rund ein- zeitliche Form der Reise- begeisterungsfähiges Gemüt Seiten hatten für Ihre Positio- 
einhalb Jahren eröffnete der schreibmaschine, rühmten für modischen Firlefanz und nen gute Gründe! 

EP-20 den Reigen und wurde seine Handlichkeit und Mobi- elektronischen Schnick- Sicher; der EP-20 war schon 
ebenso wohlwollend wie ab- lität; dieanderensahenininm schnack bewahrt haben. ein schnuckeliggs Ma- 
lehnend rezensiert. nichts als ein Spielzeug für Als ehemaliger EP-20- Besit- schinchen und paßte in den 
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flachsten Aktenkoffer. Er be- 
saß einen internationalen 
Zeichensatz, ließ die Wahl 
zwischen Thermo- und Kar- 
bonband-Betrieb, bot wahl- 
weise Batterie- und Netzver- 
sorgung sowie die Verwend- 
barkeit des DIN A4-Vollfor- 
mates für Briefbögen. Durch- 
aus attraktiv also — leider 
aber auch mit einer Reihe von 
lästigen Unzulänglichkeiten 
behaftet: 

Das Papier ließ sich zwar 
motorisch einziehen, pflegte 
sich aber unter der Drucker- 
Abdeckung zu stauen, sodaß 
es letztlich doch umständlich 
von Hand eingefädelt werden 
mußte. Das Schriftbild wurde 
sehr unvollkommen durch 
eine 5x7 Punkt-Matrix er- 
zeugt, bot also eine Minimal- 
auflösung, die sich vor allem 
bei denjenigen Buchstaben 
störend bemerkbar machte, die 
unter die Schreiblinie rei- 
chen (g,j,p,9,y). 

Des EP-20 Eigenschaft als 
elektronischer Drucker rief 
bei vielen Besitzern schon 
bald den Wunsch hervor, die 
’Schreibmaschine an den 
Computer anzuschließen. 
Leider verfügte der EP-20 
nicht über eine Schnittstelle 
als Daten-Bus, wenngleich 
diese auch kostspielig nach- 
gerüstet werden konnte. _ 
Als wenig später der Nachfol- 
ger EP-22 der Öffentlichkeit 
vorgestellt wurde, hoffte man 
natürlich, daß die diversen 
Unzulänglichkeiten nun pass& 
seien. Und tatsächlich war- 
tete der neue EP mit einem 
V24-Interface und einem 2- 
Kilobyte-Textspeicher auf, 
sodaß den Forderungen der 
Computer-Anwender Rech- 
nung getragen war. Leider 
hatte man aber das ’alte’ Ge- 
häuse des EP-20 beibehalten, 
lediglich farblich anders ge- 
staltet und so die Verar- 
beitungsfehler, mechani- 
schen Toleranzen sowie das 
dürftige Schriftbild über- 
nommen. 

Da hatten sicher auch andere 
Freaks außer mir die Hoff- 
nung auf Besserung bereits 
aufgeben, als im Frühjahr ’84 
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der Dritte ”im Bunde” er- 
schien, der hier vorgestellte 
Electronic Printer 44. 


Praxis-orientiertes Design 
Wie gesagt, ich war skeptisch, 
ließ mich dann jedoch um sd 
lieber eines Besseren beleh- 
ren. 

Schon vom Äußeren her weist 
der Vierundvierziger nur we- 
nige Ähnlichkeiten mit seinen 
älteren ’Brüdern’ auf. Schon 
die”Karrosserie” wurde völlig 
neu konzipiert— statt des Kof- 
ferdeckels besitzt der EP-44 
nur noch eine Tastaturab- 
deckung sowie einen Trans- 
portschutz für den Papierein- 
zug, der bei Betrieb als Pa- 
pierstütze fungiert. 

Mit seinen gut 33 Zenti- 
metern Breite und einer Tiefe 
von 26,2 Zentimetern besitzt 
der EP-44 die Maße einer 
handlichen Reiseschreibma- 
schine, ist jedoch wesentlich 
flacher. Die Tastatur verfügt 
über 74 blendfreie Druckta- 
sten sowie 3 Schiebeschalter 
und ist trotz Dreifachbele- 
gung recht übersichtlich. 

Die zitierte Mehrfachnutzung 
der Tasten entsteht durch die 
"Second Shift”- und ”Code- 
Funktionen, die für die Anfor- 
derung der unterschiedlich- 
sten Sonderzeichen und die 
Speicher-Kommandos ver- 
antwortlich zeichnen. 

Gerade die Verfügbarkeit die- 
ser ”special characters” 
bringt einen Schreibkomfort, 
der selbst von wesentlich 
teueren Typenrad-Maschinen 
— zumindest in der jeweiligen 
Grundversion — nicht er- 
reicht wird. 


DE 2.2.2.2 3 


Ziffern 


Alphabet 


Math. Symbole 


Intern. 


Sonderzeichen 


Raftiniertes Innenleben 
Auf den allerersten Blick 
scheint der EP-44 ”nur” eine 
modernst konstruierte Schreib- 
maschine zu sein, wenn auch 
der kleine Schiebeschalter 
NORMAL/TERMINAL ahnen 
läßt, daß das Gerät noch eini- 
ges mehr auf Lager hat. 

Das Druckwerk ist ein exzel- 
lenter Thermodrucker mit ei- 
ner in dieser Klasse vorbild- 
lichen Auflösung von sage 
und schreibe 24 mal 18 
Punkten. Das bedeutet echte 
new-letter-quality im Ver- 
gleich zu EP 20/22 bzw. han- 
delsüblichen Nadeldruckern. 
Um Ihnen einen Eindruck von 
der Schriftqualität bieten zu 
können, wurde dieser Bericht 
bewußt nur zum Teil gesetzt, 
ein Teil wurde in meinen EP- 
44 eingetippt. Leider ist der 
optische Eindruck des Origi- 
nals hier nur schwer wieder- 
zugeben. 


Außer im Thermo-Betrieb auf 
DIN A4-Spezialpapier (er- 
hältlich in den Ausführungen 
'blau auf weiß’ und "schwarz 
auf weiß’) kann man den EP- 
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Schreib-Komfort 


AUTO automatischer 
Papiervorschub 


am Zeilenende 


RMF Automatik für 
rechtsbündiges 
Schreiben 

CTR Zentrier- 
Automatik 

L/L Zeilenumbruch 
in der Randzone 

XXX Unterstreich- 


Automatik 
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darüber hinaus ... 


wiederholautomatik 
für jede Taste, 


Abschaltautomatik 
zum Energiesparen, 


Permanentspeicher 
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KERKKRRHRN NK 


44 natürlich ebenso mit spe- 
ziellen Karbonband-Kasset- 
ten ”fahren”, die auch auf 
Normalpapier sehr gute Er- 
gebnisse liefern. 


KRENKERRKENK 
KEIKKRRKIRR N 


Durch eine Reihe sinnvoller“ 


Automatiken wird eine gute 
Performance erreicht, wie die 
Tabelle oben rechts veran- 
schaulicht. Vorteilhaft ist vor 
allem, daß sämtliche Leistun- 
gen auch im Memory-Mode 
zur Verfügung stehen, womit 
wir bei einem wichtigen Punkt 
unserer Besprechung an- 
gekommen wären. 


KAKKKIKKKEKKKKKKKKKKKK KK KK KK KK KK KK KK KK KK KK KK KK KK KK 


Kompletter EP-44 Zeichensatz 
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Textverarbeitung 

mit Speicher 
Ein Gerät wie der Brother EP- 
44 wäre nur halb so nützlich, 
wenn er nicht über die Mög- 
lichkeit zum Speichern 
von Texten verfügte. 
Sicher, die Schnittstelle 
schafft Verbindung zum Com- 
puter und damit auch zu einer 
Speichereinheit — ein ständi- 
ger Datentransfer ist jedoch 
für viele Bereiche nicht 


* 
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abcdefghijklmnopqgrstuvwxyz äöü Bß 
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Sonstiges 


sel # 
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rentabel. 

Deshalb besitzt der EP-44 ei- 
nen RAM, der Gegenüber dem 
"alten’ Zweiundzwanziger von 
Brother verdoppelt wurde und 
nun maximal 3726 Bytes 
(Zeichen) aufnehmen kann. 
Nachfolgend will ich Ihnen 
das Protokoll eines normalen 
Speichervorganges auflisten, 
um zu verdeutlichen, wie 
Textverarbeitung mit dem 
EP-44 funktioniert. 

Zuvor allerdings eine kurze 
Bemerkung zu den drei ver- 
schiedenen Betriebsarten des 
Gerätes. 


Rechts sehen Sie eine Skizze 
des Betriebsarten-Schalters, 
den ich durch ein ”[]” darge- 
stellt habe. 

In der Zeichnung steht er auf 
Position DP (direct printing) - 
NP = no print 

CP = correction printing 


DP bedeutet, daß alles, was 
Sie tippen, sofort auch aus- 
gedruckt wird — normale 
Schreibmaschinen-Funktion 
also. 


NP dürfte ebenfalls klar sein: 
Das Druckwerk wird ausge- 
schaltet, Speichern von 
Texten ist jedoch möglich. 

CP schließlich ermöglicht 
Korrektur über das 15- 
Zeichen-Display des Printers: 
Sie tippen und lesen auf der 
LCD-Anzeige, was Sie schrei- 
ben. Ab dem 16. Zeichen be- 
ginnt der Text nach links weg- 
zuscrollen. Was verschwin- 
det, wird ausgedruckt. Da- 
durch können Sie Fehler im 
Bereich der jeweils 15 letzten 
Anschläge korrigieren. 


x 
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‚NP CP DPF 
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Doch jetzt zum angekün- 
digten Protokoll... 


1) Wie bei jeder Schreibma- 


schine legt man auch beim 
EP-44 vor dem Schreiben die 
Zeilenlänge fest (in Be- 
triebsart DP steuert man mit 
dem Drucker-Schlitten den 
jeweiligen Start- und End- 
punkt an, der über ”L MAR- 
GIN” (linker) und ”R MAR- 
GIN” (rechter Rand) fixiert 


wird. Eventuelle Tab-Stops 


müssen ebenfalls vor Schreib- 
beginn festgelegt werden, 
da für sie eine nachträgliche 
Korrektur nicht möglich ist. 


2) Mit "CODE”+”"NEW” wird: 


der RAM gelöscht und für 
neue Texte vorbereitet. Will 
man den bestehenden Inhalt 
nur ergänzen, so drückt man 
"CODE”+”APPEND”, wo- 
durch der Cursor automatisch 
auf die zuletzt gespeicherte 
Zeile gerichtet wird. 


3) Nun schreibt man seinen 
Text und drückt anschließend 
die ”STOP/ON”-Taste, wo- 
rauf der Printer über das Dis- 
plav ”# STORE STOP” 


bestätigt. 


4) Jetzt geht man nahtlos in 
den Editier-Modus über und 
holt sich mit Hilfe der Cursor- 
Tasten die geschriebenen 
Zeilen Stück für Stück auf die 
LCD-Anzeige. Die Korrektur 
geschieht wie beim Computer 
mittels "INSERT” und 
"DELETE”. 


5) Jetzt wird erneut die 


| "STOP/ON”-Taste gedrückt. 


Der EP-44 bestätigt dies wie- 
der mit "# EDITSTOP”. 


6) Nun drückt man ”CO- 
DE”+"PRINT”, worauf der 
Speicherinhalt ausgedruckt 
wird. 


Fortsetzung folgt in GM 45 


Magdomnad für den C-64 aus "Compute mit 41” 


Berichtigung der Zeilen 40101 bis 40701: 


aaıal 


48208 REM MANN STEHT RECHTS 


aBz01 


DATAB,189,0,2,170,0,0,254,8,0,60,0,3,252,0,0,252,0,0,48,0,0,64,8,1,17,8,1 
43192 DATA17,0,3,17,2,3,81,8,3,5,8,1,85,0,0,84,8,0,20,0,0,2 


8,9,8,22,8,8,28 
4031063 DATA148,0,0,159,0 ,.8,8, »8,8,28,08,B 


DATRS,42,0,0,170,126,0,191,8,0,60,0,0,63,192,0,63,0,0,12,0,0,85,0,0,68,64 


48202 DATAO,63,64,0,05,192,0,69,192,0,64,192,0,85,64,9,21,0,0,.20,0,0.28.0,0,28 
42203 DATAO,0,20,0,6,22,9,0,42,8 
435668 REM MANM GEHT RECHTS 


ans 


InTAO,s2,0,8,170,123,8,191,0,0,60,0,8,63,192,0,63,8,0,12,0,0,85,0,8.68,64 


40382 DATA9,68,64,0,58,64,8,68,64,8,127,64,8,93,64,8,21,0,0,21,8,0,81,64,1,64,88 
498383 DATA1,8,16,2,08,32,0,128,48 
48488 REM MANN GEHT LINKS 


48491 


DATA®,168,0,2,170,8,0,254,0,0,68,0,3,252,0,8,252,0,0,48,0,8,35,0,1,17,8,1 


498482 DATA17,0,1,17,8,1,17,871,253,0,1,117,0,0,84,0,0.84,0,1,69,0,5,1,84,4,8,64 
38483 DATAS,8,128,48,2,128 
48598 REM MANN KLETTERT L 


49591 


402582 DATAS,85,64,1,35,8,1,85,8,1,85,0 
43583 DATAO,8,4,2,0,3,08,0,8,0 


493538 REM MANN KLETTERT R 


“86081 


DATA®,168,8,2,170,8,14,170,0,12,252,0,4,252,0,3,252,192,4,48,192,5,85,64 
‚1,85,0,1,85,8,98,94,9,0,132,0,8,132,8,8,4 


CH TA8,168,8,2,170,0,2,170,192,0,252,1982,12,252,64,12,252,64,4,48,64,5,85 


48682 DATA64,5,85,64,1,85,8,1,85,0,1,85,8,1,85,8,1,85,8,0,84,0,0,72,0.8,72.,8,0 
48693 DATA64,0,0,64,0,98,128,8,8,128,8 


40788 REM SPINNE 
497981 
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DATAB,8,0,0,8,0,0,68,8,0,255,0,3,255,192,3,125,192,3,255,192,0,195,8,0,198 
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Korrektur zur Programmbeschreibung "Textverarbeitung für den C-64” aus der 
”Gompute mit 41”. 


Wir haben es Ihnen wirklich nicht leicht gemacht, diesen Text richtig verfolgen zu können, dafür bringen wir Ihnen hier 
nun denselben (zwar verkleinert) aber geordnet. 


1. Texteingabe: 
Das Programm fragt ab, ob neuer Text 
Pinneaahen naar an erhan gaschriobenen 
Text angehangen werden soll. Hier muß 
nur dann Fi gedrückt werden, wenn der 
Text von Diskette eıngeladen wurde und 
nun weılergeschrieben werden soll. 
Wurde die Texteingabe nur unterbrochen, 
so setzt sıch das Programm selbst einen 
Merker Dann wird dıe Zeilennummer ab- 
gefragt, ab welcher der Text zu speichern 
ıst. Bei neuem Text sollte eine 1 eingege- 
ben werden, ansonsten die Zeilennum- 
mer (+1) bei welcher der schon ge- 
schriebene Text endet. Nun kann mit der 
Texteingabe begonnen werden. Die 
Cursorsteuertasten funktionieren im Ein- 
gabemodus nicht. Der Cursor kann aber 
mit Hılle der InsvDel-Taste zurückge- 
fuhrt werden. Größere Fehler können im 
Unterprogramm "Text ändern’ beseitigt 
werden. Die Eingabe der Anführungs- 
zeichen ıst nicht moglich, hier muß das 
hochgestellte Komma verwendet wer- 
den. Für die Texteıngabe stehen 100 Zei- 
len mit maximal 70 Zeichen zur Verfü- 
gung. Beı Erreichen des 65. Zeichens, er- 
tont bei jeder weiteren Eingabe ein 
akustisches Signal. Sınd 70 Zeichen ein- 
- gegeben, wırd eın automatischer Zeilen- 
vorschub durchgefuhrt. Drückt man bei 
Beginn einer neuen Zeile die 'Pfeil nach 
oben'-Taste, gelangt man wieder ins 
Hauptmenue. 


2. Text ändern: i 

Das Programm fragt die Zeilennummer 
ab. in welcher der zu ändernde Text 
gespeichert ıst Diese wird dann auf dem 
Bildschirm sıchtbar gemacht, und kann 
darunter neu eingegeben werden. Drückt 
man dıe "Cursor Rıght'-Taste, wird der 
alte Text in die neue Zeile kopiert. Be- 
tatıgl man die F1-Taste, wird der ge- 
samte Text gelöscht. Gelöschte Zeilen 
konnen sofort oder später wieder eınge- 
fugt werden. Dıes muß aber ebenfalls im 
Untermenue Textandern vorgenommen 
werden. Werden 70 Zeichen eingegeben, 
wırd keine Zeilenschaltung vorgenom- 
men, sondern das Programm fragt, ob die 
Zeile ubetnommen werden soll (z.B. war 
das 70. Zeichen gerade der Schlußpunkt). 
In diesem Falle ist dıe 'Pleil nach oben'- 
Taste zu drucken. Hat man die Zeile nicht 
korrekt eingegeben, drückt man Fi und 
gıbt die Zeilennummer nochmals an. Der 
Text kann dann neu eingegeben werden. 
Bleiben dann Zeichen aus der vorherigen 
Eingabe stehen, können diese unberück- 
sıchtigt bleiben, das Programm "schnei- 
det” sıe ab 


3. Text löschen: 
Durch Drucken von Fi wird der gesamte 
Text gelöscht. 


4. Textausgahe Bildschirm: 
Der gesamte Text wird mit vorange- 


stellter Zeilennummer aufgelistet. Mit 
der 'Pfeil nach oben'-Taste kann das Li- 
sten angehalten und wieder gestartet 
werden. Ist das Textende erreicht, wird 
dıes angezeigt, und ein erneutes Drücken 
der "Pfeil nach oben'-Tasie zeigt wieder 
das Hauptmenue. 


5. Druckerausgabe: 

Das Programm fragt ab, ob der Absender 
mit ausgedruckt werden soll. Dann wird 
abgelragt, ob weitere Daten eingegeben 
werden. Wird die Frage mit 'Ja' beant- 
worlel, so fragt das Programm 
folgendes ab: 

a) Anrede (z.B. Firma), 

b) Vorname, 

c) Name, 

0) Straße u. Nr., 

e) PLZ u. Ort, 

f) Datum, 
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9) Betreff. 


- Dann werden 3 Anredeformen zur Aus- 


wahl gestellt: 

a) Sehr geehrte Damen und Herren, 

b) Sehr geehrte Frau, 

c) Sehr geehrter Herr. 

Trifft hiervon keine zu, kann eine eigene 
eingegeben werden. 

Hinter b und c wird der Name mit aus- 
gedruckt. Bei der eigenen Anrede muß er 
mit eingegeben werden. Hinter Anrede- 
form einer gewählten oder der eigenen, 
wird ein Komma gedruckt. Der erste Satz 
sollte also kleingeschrieben beginnen. 
Dann wird abgefragt, ob ein Schlußwort 
ausgedruckt werden soll. Beantwortet 
man die Frage mit Ja’, werden 4 Formen 
zur Auswahl angeboten: 

a) mit freundlichen Grüßen:, 

b) Mit freundlichen Grüßen:, 

c) Hochachtungsvoll;, 

d) Gezeichnet.. 

Trifft keines zu, kann wieder eine eigene 
Eingabe gemacht werden. Hinter jedes 
Schlußwort, gleich ob gewählt oder ein- 
gegeben, wird ein Doppelpunkt gesetzt. 
Nach dem Ausdruck fragt das Pro- 
gramm, ob ein weiterer Ausdruck ge- 
wünscht wird. Beantwortet man die 
Frage mit ’Ja', so wird gefragt, ob Daten 
geändert werden sollen. Bei Beant- 
wortung mit 'Nein’, wird ausgedruckt wie 
vorher. Bei ‘Ja’ werden die oben er- 
wähnten Punkte abgefragt. 

Es ist somit möglich, die Adresse oder 
andere Daten ständig zu ändern. Will 
men vorher gemachte Daten beibehalten, 
muß die Abfrage nur mit Return über- 
sprungen werden. Dies ist möglich, da 
alle Stringzuweisungen ihre Werte so- 
lange behalten, bis kein Ausdruck mehr 
gewünscht oder diese neu eingegeben 
werden. Bisher wurde nur gesagt, was 
das Programm macht, wenn mit 'Ja' ge- 
antwortet wird. Es dürfte jedem ver- 
ständlich sein, daß der Absender nicht 
ausgedruckt wird, wenn man mit 'Nein' 
antwortet, gleiches gilt für die Anschrift, 
Datum, Betreff, Anrede und Schlußwort, 
wenn man die Frage nach weiteren Ein- 
gaben verneint. Es ist somit möglich, den 
eingegeben Text ohne weitere Daten 
auszudrucken, oder den ersten Ausdruck 
mit Daten und den zweiten (Kopie ohne). 
Es sind alle Kombinationen möglich. 
Beim Ausdruck ohne weitere Daten gibt 
es zwei Möglichkeiten, wenn ein weiterer 
Ausdruck gewünscht wird. 

Wenn das Programm nach der mit 'Ja’ 
beantworteten Frage nach dem zweiten 
Ausdruck fragt ob Daten geändert wer- 
den sollen, gibt man ’Nein’ ein. Es werden 
dann zwischen dem bereits Ausgedruck- 
ten und dem zweiten Ausdruck, 4 Zeilen- 
Schaltungen vorgenommen. Soll aber der 
zweite Ausdruck (es kann sich hierbei 
auch um Text handeln, der neu eingela- 
den wurde, wenn z.B. 100 Zeilen nicht 
ausreichten) sofort an den 1. Ausdruck 
angehangen werden, geht man folgen- 
dermaßen vor. Zweiter Ausdruck JA, Da- 
ten ändern JA (obwohl eigentlich nichts 
zu ändern ist) Absender ausdrucken 
NEIN, weitere Daten eingeben NEIN. Der 
Text wird an den ersten angehangen. 
Wem dies nun alles etwas unverständ- 
lich vorgekommen ist, den möchte ich 
bitten, einen kleinen Text einzugeben und 
die Vielzahl der möglichen Druckersteue- 


rungen auszuprobieren. 


6. Diskettenmenue: 
Wird gesondert erläutert. 


7. Farbwechsal: 

Mit den Funktionstasten Fi, F3 und F5 
können Hintergrund-, Rahmen- und 
Schriftfarbe gewählt werden. Mit F7 ge- 
langt man wieder ins Hauptmenue. 
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Die beim Start eingestellte, für manchen 
wohl etwas 'poppige’ Kombination von 
rotem Rahmen und Hintergrund mit 
weißer Schrift wurde gewählt, da diese 
einer der besten Kombinationen für Mo- 
nochrome oder mit: Grünumschalter be- 
stückte Monitore ist. 


8. Anweisungen: 

Die Anweisungen sollen nur eine Help- 
funktion erfüllen und sind deshalb in 
Kurzform gehalten. Die Punkte Text ein- 
geben, Text ändern, Text einfügen und 
Text löschen sind kurz erläutert. Dies nur, 
damit bei dem anfänglichen Arbeiten die 
Zeitschrift nicht daneben liegen muß. 


9. Programm beenden: 

Das endgültige Programmende muß 
nochmals durch Drücken der Fi be- 
stätigt werden. Auch von hieraus kann 
mit der 'PnOT’ wieder ins Hauptmenue 
zurückgekehrt werden. So wird wir- 
kungsvoll verhindert. daß ein falscher Ta- 
stendruck den bisher eingegebenen Text 
unwiederbringlich löscht. 


Diskettenmenue: 

1. Text speichern: 

Es wird nach dem Namen des zu 
speichernden Textes gefragt. Nach dem 
Abspeichern kehrt das Programm zum 
Diskettenmenue zurück. Existiert be- 
reits ein File mit dem gleichen Namen, 
wird es überschrieben. Ist man sich also 
über die vorhandenen Files nicht mehr im 
klaren, sollte man vorher die Directory 
lesen. 


2. Text laden: 

Nachdem der Textname abgefragt 
wurde. wird dieser mit Get eingelesen, 
und dem String Te$(zn) zugeordnet. Bei 
längeren Texten dauert dies leider einige 
Zeit. Nach dem Einlesen wird das Haupt- 
menue angezeigt. 


3. Textdatel löschen: 
Es wird der Name abgefragt und dann die 
entsprechende Datei gelöscht. 


4. Textdatei umbenennen: 

Es wird der alte und der neue Name abge- 
fragt. Während dem Umschreiben wird 
dies sichtbar gemacht. 


5. Formatleren: 
Es wird Name und Id gefragt. Nach dem 
Formatieren Rückkehr ins Menue. 


6. Directory: 

Die Directory kann eingelesen werden, 
ohne daß das Programm oder der Text 
gelöscht werden. Das Einlesen geht sehr 
rasch, da hierfür ein Unterprogramm in 
Maschinensprache aufgerufen wird. 


7. Hauptmenue: 
Durch Drücken der 7 gelangt man wieder 
ins Hauptmenue zurück. 


Fehlermeldungen: 

Bei sämtlichen Operationen mit dem 
Diskettenlaufwerk wird der Fehlerkanal 
abgefragt. Tritt ein Fehler auf, wird dieser 
angezeigt und das Programm wartet auf 
einen Tastendruck und kehrt dann ins 
Hauptmenue zurück. Die Fehlermeldung 
‘Device Not Present’ wird ebenfalls ange- 
zeigt. Der Benutzer wird gebeten, dasan- 
gesprochene Gerät einzuschalten und 
eine Taste zu drücken. Nach dem Ta- 
stendruck fährt das Programm mit der 
Arbeit fort. 

Wird bis zum Erreichen der möglichen 
100 Zeilen geschrieben, springt das Pro- 
gramm zum Hauptmenue, der Text kann 
dann noch editiert und abgespeichert 
werden. Die Run/Stop-Taste wurde 


außer Betrieb gesetzt, um ein Absturzen 
durch versehentliches Drücken der Taste 
zu verhindern. 


Noch ein kleiner Hinweis: 

Auf ein DIN A4 Blatt haben incl. Absen- 
der. Anschrift und Schlußwort cirka 35 
Zeilen Platz. 

Die Benutzung der Anführungszeichen 
ist nicht möglich. Hier muß das hoch- 
gestellte Komma verwendet werden. 
Um das Ende des Textes bei der Bild- 
Schirm und Druckerausgabe zu erken- 
nen, setzt sich das Programm bei Been- 
den der Texteingabe einen Merker. Dies 
sind zwei aufeinanderfolgende **. Es 
sollte darum das Multiplikationszeichen 
nicht zweimal hintereinander eingegeben 
werden. 

Da ich glaube, nun alles gesagt zu haben, 
bleibt mir nur noch, Ihnen viel Spaß beim 
Schreiben zu Wünschen. 


Varlablenliste: 

DN$: Dateiname 

ND$: Neuer Dateiname 

AD$: Alter Dateiname 

1D$: Id (Formatieren) 

LD$: Datei löschen 

Drucker: 

Folgende Variablen in den Zeilen 30-45 
müssen mit den Daten des Anwenders 
belegt werden. Können natürlich auch 
ohne Belegung.bleiben (z.B. Firmentyp 
wenn Privat). 

FT$: Firmentyp 

8E$: Straße und Nummer 

TIF$: Telefon 

BZ$: Bankleitzahl 

KT$: Kontonummer 

Y$: Vorname/Name 

PS: Postleitzahl/Ort 

BZ$: Ist belegt 


Folgende Yarlahlen warden im Programm 
abgefragt: 

A$: Anrede bei Adresse 
VI$: Vorname 

NI$: Name 

8y$: Straße und Nummer 
PI$: Postleitzahl und Ort 
D$: Datum 

BT$: Betreff 

A8$: Gewählte Anrede 
sh$: Gewählter Schluß 


Sonztigs: 

2E$: Obere Maske 
ABLEN$: Directory einlesen 
EN, FA WAS: Get Abfrage 


Terxteingahe: 

TE$: Text 

NT$: Eingabe 

AN$: Eingabe Zeilennummer 
ZN: Zeilennummer 

ME: Merker 


Weltere: 

HF: Hintergrundfarbe 

RF: Rahmenfarbe 

$F: Schriftfarbe 

DN%: Geräteadresse 

DR%: Gerät EIN/AUS (0/1) 


Programmaufbau: 

25-100: Stringzuweisung, Dimensionie- 
rung, Farbe 

130-580: Hauptmenue und Abfrage 
600-850: Texteingabe 

900-1260: Texteditor 

1300-1460: Bildschirmausgabe 
1500-1590: Textausdruck 
1800-1680: Text löschen 
1700-1770: Text speichern 
1800-1910: Text laden 

2000-2100: Farbwechsel 
2200-2280: Programmabbruch 
2300-2320: Ton 

2400-2775: Eingabe weiterer Daten 


2800-2990: Druck Absender und weite- 
rer Daten 

3000-3790: Anweisungen 

4000-4040: Fehlerkanal abfragen 
4100-4240: Disketten Menue und 
Abfrage 

4300-4355: Datei löschen 

4400-4490: Datei umbenennen 
4500-4570: Disk formatieren 
4600-4890: Directory listen 
5000-5120: Überprüfen ob Gerät EIN/ 
AUS 

8140: Fehlerkanal löschen 

5200-5270: Maschinendatas für Direc 
u. Überprüfung EIN/AUS. 5 
5300-5340: Copyright 

5360-5370: Rücksetzen der Stringzu- 
weisung 


Ich möchte diesen Mustertext dazu be- 
nutzen, Ihnen, liebe Leser, viel Spaß mit 
diesem einfachen Textverarbeitungspro- 
gramm zu wünschen. Es war mir schon 
lange ein Dorn im Auge, daß es zwar eine 
Vielzahl von veröffentlichten Textverar- 
beitungsprogrammen gibt, welche aber 
immer auf Schönschreibdrucker abge- 
Stimmt sind. 

Was, so frage ieh, nützt der schönste 
Zeichensatz mit deutschen Umlauten, 
wenn mein Printer sie nicht ausdrucken 
kann. Was nutzt es, wenn der Text in ver- 
schiedenen Schriftgrößen ausgedruckt 
werden kann, mein Printer kann es 
nicht. 

Dieser kennt nur die Standard- und die 
Fettschrift. Das muß also reichen. An- 


sonsten können Sie mit diesem Pro- 
gramm so gut wie alles. Geschriebene 
Texte abspeichern, laden, editieren, Text- 
dateien löschen oder umbenennen. Die 
Directory laden, natürlich, ohne daß das 
im Rechner befindliche Programm oder 
der Text gelöscht wird. 

Haben Sie einen Text abgespeichert 
und wollen sofort einen weiteren einge- 
ben, so genügt ein Tastendruck und der 
alte Text wird gelöscht. 

Ich möchte nun doch nicht alle Mög- 
lichkeiten des Programmes hier in 
diesem Musterbrief niederschrieben, 
diese Angaben können Sie vielbesser der 
Programmbeschreibung entnehmen. 


NS 
> 


N 
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Goldfinger-Nachtrag tür den ve-20 + 16« 


1a Programmierer werden bemerkt haben, daß das Programm Goldfinger aus CM” 37 und 38 so nicht laufen kann. 

Bad dat habt Ihr Recht. Doch, durch die Begeisterung über das atemberaubende Spiel Goldfinger, in schwebenden Zustand ver- 
setzt, haben wir leider den 2. Teil unvollständig abgedruckt. 

Könnt Ihr uns noch einmal verzeihen? 

Hier ist nun das fehlende Stück Listing! 

Ihr werdet sehen, das Programm Goldfinger ist Spitze! 


1 DIM21(4,4) ,N$(8),P«8) 

2 FA=36879:L5=36878:T1=36875:85=36869 

9 GOSUBZEB:E(1)=4319:1E(2)=4323:1E(3)=43271E(4)=43311PU=D:EN=O 

10 B0=4560:AN=33792:P1=4538:P2=4546:P3=4554 :N=d:RU=B:RV=® 

11 VC = " ERMDAEnBecBDDaa EacacHr oT BE KO ER 19-4 SF I=SE 

14 RUS= " unubsng" 

15 P4=4385:P5=4323:P6=4191:P7=42871POKELS, 15 

20 GOSUB6008:60T0508 

38 K=INTCTI/100-AT):PRINT "BREI" CHT-K) "ARE" PU; 

31 IFHT-K=9THENPRINT'EEBEBBI "> 

32 IFK>HTTHEN4885 

33 RETURN 

188 POKET1,180:NN=®:BE=®: IFR=22THENBE=1:160T0148 

118 IFR=21THENBE=-1:6070148 

128 IFR=13THENBE=-22:60T0148 

138 IFR=37THENBE=22:60T0148 

135 POKETI,@:NN=1:RETURN 

148 POKETI ‚8: IFPEEK (BO+BE ) =XXORPEEK (BO+BE I) =KYTHENEN=1 

145 IFPEEK (BO+BE )=290RPEEK (BO+BE ) =38THENEN=1 

158 IFPEEK (BO+BE )=YYORPEEK (BO +BE )=YXORPEEK (BO+BE ) >6 1ORPEEK (BO+BE ) =6THENRETURN 
168 POKEBO,FI:POKEBO+AA,FB 

178 FI=PEEK (BO+BE) :FB=PEEK (BO+AA+BE) :BO=BO+BE :POKEBO ‚22: POKEBO+AA ‚8: RETURN 

288 POKELS,15:FORI=LLTOLL-SOSTEP-2:60T0228 

218 POKELS,15:FORI=LL-SOTOLL: 

228 POKETI,I:FORII=1TO28:NEXTII,I:POKETI,@:RETURN. 

230 FORI=8T022:60T0258 

248 FORI=22T08STEP-1: 

250 POKE3S6864, 12+1:POKE36865 ,38+1:1POKE36866 ‚22-1:POKE36867 ‚46-241: POKETI ,LL-3#1: 
NEXT: 1=® 

255 POKET1,8:RETURN 

26@ POKE188,8:PRINT"W":POKEFA,238:POKEBS, 194:PRINT"EERMEI IB EINEN /AMEN EIN 3 
263 LL=238:60SUB219 

265 INPUTNS(8)INSCBI=LEFTS(NSCE),9) 

268 LL=220:60SUB288 

270 PRINT"ERBPPIELSTAERKE (1-9)  MI=LEICHT" 

288 GETSS$:SS=VAL(SS$): IFSS<LORSSISTHEN2SO 

288 LL=258:60SUB2 18 

299 SS=SS/10:AT=INTCTI/188):HT=INT<(1-SS)x38+78) RETURN 
308 PRINT EERPEBBEBBER-S HERMES" 7 : RETURN 

359 FORII=1TOLEN(A$):BS=LEFTFCAS, II) :POKETI,LLIPRINT"ZE 
29:NEXT 

368 POKETI,0:FORT=1TO28:NEXT:NEXT:PRINTRUS: RETURN 

508 GOSUBS988 :POKEBO ‚22:POKEBO+AA,B: 

505 XX=26:1XY=14:YY=38:YX=39 

518 R=PEEK<197): IFR< >6ATHENGOSUB 198 

515 GOSUB38 

520 IFBO=PITHENS2O 

530 IFEO=P2THEN798 

En PPER DO örERERG 825 IFRND(1)C.44SSTHENA000 
545 IFRU= 1ANDBO=4576THEN20098 SIR IRESIET DIENTOS 


547? IFEN=1THEN4985 638 GOTOS1B 
=sa G0OT0519 799 KR=26:XY=29:YY=15:YX=14:NN=O 


a"B$: FORT=ITO 


6089 KR=26:XY=21ıYY=28:YKX=27 718 R=PEEK (197): IFR< >JE4THENGOSUB 1981 
618 R=PEEK (197): IFR< >64 THENGOSUB 139 ?ı11 GOSUB3A 

615 GOSUB3A 712 IFNN=1THEN?28 

828 IFBO=P4THENIBB 713 POKET1+1,239 


622 IFEN=1ITHENA085 
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715 


717 
7-28 
730 
735 
738 
sa 
818 
815 
s20 
838 
835 
858 
830 
998 
925 
918 
320 
338 
348 
941 
945 
958 
ET=12) 
379 
330 
385 
337 
398 
332 
993 
1808 
GHI*® 
1005 
1818 
1828 
1838 
1948 
1845 
1858 
1855 
1068 
1863 
1879 
1072 


NN=1:FORI=P2-66T0P2-22STEP22: IFRND<1) >SGR(SSITHENPOKE I ‚„28:POKEI+AA ,21NEXTIGO 
T0728 


POKEI,26:POKEI+AA,S!NEXT: 
POKET1+1,8:POKEBO ‚22 :POKEBO +AA ,B: IFBO=PSTHENI98 
IFBO>PZTHENS8S 

IFEN= 1 THEN4905 

GOTO71®8 ä 
RRE2E:RY=-32:YY=15:1 YX=14 

R=PEEK (197): IFR< >64 THENGOSUB 188 

GOSUB38 

IFBO=PSTHENSO® 

IFBO>P3-3THENSOS 
IFBO=P3-42ANDRND € 1) >SSTHENPOKE41$8,16:POKE4 199 +AA,® 
IFEN=1THENA4885 

GOTO818 

RR=E1S5:XKY=13:YY=-9: YX=14 

IFN=1 THEN948 

FORI1=1T05:POKET1-1,249+15#RND(1) 
Z1=INT(C7xRND(C13):22=1NT(7XRNDC1Y):H=4096 +5K22 +22 K22+Z 1: IFPEEKCHI< Y32THENS2O 
®:POKEH, 16: POKEH +AA,6:FORI1=1TO99:NEXT:POKETI-1,9:NEXT:N=1 
R=PEEK (197): IFR< >64 THENGOSUB 198 

GOSUB38 

IFEN= 1 THENAM2805 

IFEO=P4 +22THENSBB 

IFBO=PS+1THEN?7988 

IFBO=P&+1 THENSOO 

IFEO=P7THENLL =239:GO0SUB2 18:G0SUB238:G0T0332 

IFRND (1)<.4%SSTHENGOTO42989 

IFRU=2THENRETURN 

GOTOS48 


PRINT"3":LL=259:60SUB249:55$5=SS+.8B5:PRINT"W" 


IFRU=BTHENPU=2+INT(C7%xSS+PU) A 
POKEFA,178:PRINT"ZRBABCHBEBIDEFGE > 7EEMEE« + "SPRINT "DEF EMEBIDEF ERBEBIDE F NEBBENM 


POKEBO ‚32:R=37:G0SUB188:RU=1 
PRINT"ZSPNEPPPBBBRBBEE  _":PRINT'" EEE KE KuR aa — — LTD" 5 
PRINT"| z0G ME ME NG MG WEM mE MASEEA/NENE NEE BEE BI DB BE BO Cm CR CR" 

PRINT’3 u = 5 55 m OXITIIIn" 

PRINT" ABBBi -———— IEERBEBBENI | E-21— 21" 

YY=7ıYXx=8 

FOR1=:1T05:PRINT'@BRMII 1"5-1"Zl":NEXT 

PRINT" Ba” 

PRINT"BSWELCHES STOCKWERK 807?*"3 :POKE198,08 

GOSUB398 

GETAS:A=VAL (AS) 1 60OSUB3B : IFA>4THENLB7O 
IFAS$S="8"THENBO=P?+22:LL=248:G60SUB2198:R=37:N=8:PRINT"B" :GOSUBS8098 : GOSUB188:G 


0T0988 


1075 
1888 
11988 


IFA<LORA>A4THENI1O78 
PRINT"B" :LL=208:G60SUB208 j 
FOR1=1TOA:SPRINT"3"5 :FORI11=1T05-1:PRINT"" 7 :NEXT:SPRINT"SPEF*"3:FOR11=1T0198*A 


:NEXT 


1118 
1159 
1152 
4384 
1155 
I 
1158 
1159 
tr" 
1168 
] “ 
1161 
1165 
1166 
1167 
1168 
1169 
1178 
1171 
1208 
1282 
1285 
1286 
1218 


60 


PRINT "IBBMIEDEF ":POKET1,188+18+A: FORI1=1 TO288:NEXTIPOKET1,B:NEXT:FI=32 
LL=218:G60SUB238:PRINT"Ü" :POKEFA ,254:LL=248:G60SUB2481 YY=93: YX=85 

PRINT",22 »? *+,B" : GOSUB39O3 PRINT: POKEBO ‚32: 1=32:R=37:G0OSUB188:POKE 
‚32 

PRINT" BEI cn mn om ıııı ı 1 1A 111 121 131 1a 

1"3 

PRINTrA ı I I I I wm Un na un“ 

PRINT " Epsispahl" > :FORI1=1T0O22:PRINT"1" 7 :NEXT:SPRINT "EURE" > :FORI=1 TO1S:PRINT" TE 
’ 
NEXT:FOR1=1T022:PRINT"1"3 :NEXT:BO=4584:F 1=32:R=37:G0SUB 188 :PR INT " TRREEEMEHIEERd 


PRINT" 3"A"B.ETAGE "5 :G0SUB398 :POKE4599 ‚32 
NR=8:FORII=1T04: IFECIII=BOTHENNR=II:SNEXT:GOTOL1167 
NEXT 

IFNR< >OTHEN12088 

R=PEEK (197): IFR< >64 THENGOSUB 188 
IFBO=4546THENPOKEBO ‚32:G60T0 1998 
GOSUB38 : IFEN= 1 THEN4885 

GOTO1165 
LL=198:G0SUB238:PRINT*"" :POKEFA ,254:LL=2589 : GOSUB248: 
B0=4362:F1=32:R=22 

PR INT " ZERBBRBRI ? ERBEN + , " 
PRINT ' EEIDSEBBPpBME- . /OEEMEEI 234 KUMEEN1 234 
PRINT " ZamESEIguEBeDg ug GE ME ME LEBE 
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1212 
1228 
IN"? 
1238 
1235 
1249 


PRINT" ZEDEMIEEDeEmEN SEE DEE MEN TREE MEERE " 
PRINT" BENENENININE\ _ ____ ru DR OR OR Om Da DB BENDERENOBEBN DEN DEREN CHE 


PR INT * BRREEEBEERASE NEN EINANENKAR" NR 3 SPRINT "REBEL" 
GOSUB398 
PRINT " Ems NENDEDESEEEERDRDEDI BI — EEE | MEREEERERR \ / LIEBZBEZER | SEEN SL VO LOHEBEEBERE © © XS Saal 


ist, 


ı241 
ı242 
1243 
1245 
1259 
1255 
1256 
1269 
1278 
1289 
2988 
2818 
2928 
2925 


IFZI<CA,NRI=3THEN3 189 
IFZI<cA,NRI=2THEN3888 
IFZICA,NR) = 1 THENPR INT " EERREBRaEDSERG Ric Te Br BE a BG \ / 7 ERBEN Yo." 
:GOSUB 189 
R=PEEK (197): IFR< >84 THENGOSUB 188 
IFEN=1 THEN4885 
GOSUB388 
IFPEEK (BO-22)=81 THENGOSUB2888 
IFBO=4362THENPOKE4384 ,32:G0T0 1158 
GOSUB38:60T01258 
} RENTE SRTEERERUHTER) BKOMB INATINON?"3:Y=9:2 IcA,NRI=B 
Y=zY+lı K= INTCSARNDC1)+1)8 IFY=3THEN2845 
GOSUB3B:KRS=" "IGETKRS: IFRRS=E" " THEN2828 
RREVALCKKEI:POKETI,249:FORII=1TO9IS:NEXT:POKET1,B: IFXX= KTHENLL=248:60SUB218: 


GOT022818 


2038 
2048 
2945 
2846 
2950 
3888 
3918 
3028 
3925 
3938 
3948 
3959 
3108 
3185 
3106 
3118 
3198 
4908 
49885 
4906 
49887 
4908 
4a1a 
yalil 
4812 
4813 
4019 
4109 
4120 
4208 
4205 
42108 
4211 
4212 
4213 
4214 
4315 
4218 
4228 
4238 
4248 
5909 
5918 
zu 
so208 
5838 


IFSX>OTHENPR INT" 
GOTO2828 
PU=PU+1:HT= BESROFTITEVESBEM F1=168 


u" X; :POKEL1IS,® 


R=21:G60SUB188:RETURN ’ 
PRINTVCS& 

:GOSUB 199 

R=PEEK (197): IFR< 364 THENGOSUB 188 

IFEN= 1 THEN49885 

IFPEEK (BO -22 ) =309 THEN?9888 

IFBO=4362THENPOKE4384 ‚,32:G60T01158 

GOSUB39:GOTO3828 


ua U UERBIDUEUU"::GOSUB180 

FORI=1TO4:R=PEEK (197): IFR< 64 THENGOSUB 198 

NEXT 

1FB0-4362THENPOKE4384 ‚32160701150 

GOTO4885 

MA=P 1-88: POKEMA ,‚21:POKEMA+AN ,‚2:LL=200:G0SUB208: 

XX=1:G0SUB4 180 - 

XX=-1:G0SUB4 108 

%%=22:G0SUB4 188 

XX=-22:608UB4 108 

XX=2 1:1G0SUB4 108 

RX=23: 60SUB4 198 

RY=-21:G05UB4 188 

x%=-23:G05UB4 108 

POKET1,0:LL=248:G0SUB238:60T038008 

POKEBO+XX ‚21: POKEBO+KK +AA,B:POKETI,280+354RNDC 1) :FORII=1TO1ISO:NEXT:POKETI,® 

FORI1=1T030:NEXT:RETURN 

MA=P7 +21: POKEMA ‚21: POKEMA+AN,G:LL=210:G0SUB290:RV=® 

FOR I=1T04:R=PEEK(197): IFI<4THENG211 

FORI=1T04:POKEMA ‚32: MA=MA+1:POKEMA,21:FOKEMA+AN,8:POKETI,239:R=PEEK (197) 
IFR< EA THENGOSUB 198: IFEN= 1 THENA808S - 
IFBO=PS+1THENRV=2 

IFBO=PE+1 THENRV=3 

IFBO=P4 +22THENRV=1 

FORII=1T039:NEXT:POKET1,8 

NEXT: 

IFFI<>ISTHEN488S 

FOR1=1T04 :POKEMA ‚32 :MA=MA-1:POKEMA,21:POKEMA+AN ‚8: GOSUB38 : NEXT: POKEMA ‚30 

LL=298:60SU8298 : ONRV+1G0T093498,600,700,308 

POKEFA,31:POKEBS,205 

PRINT"WMABCHHS!H M-./04  +S!HmDEFr 57 m? 1234 *+, 67 BDEFRN IN 3565 
N“ 

PRINT"SDEFWOMI1110M123133220M)211”; 

PRINT"DEF SSSSTESSSTTTTT:LCHI t R DM t ;SSSSSSTTTTH=" 
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Superdiskette mit Dateiverwaltung, 
Monitor und Zeichensätzen, sowie 
Bauanleitung für 6-mal-schnellere 
1541 und Bauanleitung für 
Spurjustage mit LED-Anzeige für 
1541 incl. Software. Bauanleitungs- 
ausgabe wahlweise. Auf Drucker oder TV. 
DM 75,- gegen NN. 1/4 jährlich neue Disk 
mit Soft- & Hardware. Best.: Rottsieger 
& Heisse, PF. 130401, 5630 Remscheid 


6-64 Deutsche Anl. Colossus Chess 
+ Flight Simulator II je 15.- DM. 
Super-Disk für Einsteiger m. Anltg. 
(2 Seiten voll mit Nutzprogr + Copy) 
für 40,- DM/nur Vork. (Scheine) an: 
Postlagernd 043163B/4000 Düsseldorf 1 


VG-20 Software! Preisgünstig! 
Liste gegen 80 Pf. Rückporto von 
S & L-Soft, Postlagernd, 
5014 Kerpenhorrem 


% %% %HalloVC-64 ls Av AA % 
”“ Hier gibt's die aktuellste %* 
% Software. Auswahl aus über 2500 * 
% Progr. Viele Neuzugänge aus USA # 
%* und GB. Info gegen 1,40 in Brfm. *x 
% Über 50 seitige Programmaus- %* 
% wahl, Udo Göbel, Frohnhausen 471, & 
% 4300 Essen 1, @0201/740413 %* 


64er-Progr. zu Superpreisenil! 
Info gratis! 
F. Zillich, 
Zoppoterstr 27a, 4000 Düsseldorf 13 
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Commodore 64 - Günstige Gele- 
genheit: Wegen Systemwechsel 250 
Topprogramme auf Disk oder Cassette 
für nur DM 200,- Schein/Scheck 
oder NN. auch möglich 70 Pro. für 
nur DM 50,-. Bestellungen an: 

P. Weber, Alter Teichweg 137 F, 
2000 Hamburg 70 


VC-20 Software billig, billig 
Action, Organisation, Spiele 
Ausführl. Liste gegen 80 Pf. Porto 
anfordern bei: TH. Schläger, 
Elsastraße 28, 2000 Hamburg 76 


BIETE AN HARDWARE 


CBM 64 LIGHTPEN CBM 64 
mit Mal- und Zeichensoftware Hi-Res 
nur DM 89,- Disk/Kass. Komplett bei 

HAARMANN-Electronic, Kosterstraße 92, 
4630 Bochum 1, @0234/793212 


Wichtig: Geben Sie bitte bei jeder 


Zahlung die Rechnungsnummer an! 
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”Floppy-Koffer” für Commodore 20,64 
Endlich Ist er da: 
der Koffer für Ihre Commodore-Anlage. Da 
paßt der Floppy, Netzteil und der Commo- 
dore rein und sind endlich stoßgeschützt. 
Ideal für Reisende, Schulen oder einfach 
zum Transportieren. Bedienung von Außen 
ohne Ausbau, aber auch leichter Ein- und 
Ausbau möglich. Farbe: schwarz, Preis: 
150,- D’M+ NN 
(entfällt bei Vorauszahlung). 


"Das Modemhuch” 
das Nachschlagewerk für Anfänger und 
Profis zum Umgang mit Datenbanken, 150 
Seiten DIN A4 Format, nur 29,80 DM + 
NN (entfällt bei Vorauszahlung) 


-————— 00012 


Akustikkoppler ”SONIC 300”, 298,- DM: 
SCIENTIFIC MARKET, Manfred Hurth, 
Kottbusser Damm 29/30, 1 Berlin 61, 

2030/62 22455, 7-12 Uhr 
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Suche billigen 6-64 + Floppy unter 
500 DM. Angebote an Ralf Georg, 
Lambertusstraße 1, 6734 Lambrecht 


Matrixprinter MPS 802, 1 Mon. alt, 
für 695,- DM, ®089/2719628 


Die nächste ”Gompute mit” 


gibt es am 31. 


Oktober beim 


Zeitschriftenhändler 


Inserentenverzeichnis 


TeWi 

iti 
Völzke 
Mükra 
Friwa 
Wicosoft 


Auftrag für Gelegenheitsanzeigen in Gompute mit 


An Gompute mit URORIKOLIHNNE 

Fuldaer Straße 6 Abo. 
Postfach 629 

3440 Eschwege Unterschrift Ich zahle sofort nach Rechnungserhalt. Datum 


Unter der Rubrik "Kleinanzeigen”- 
veröffentlichen wir Gele- 
genheltsanzeigen für Verkaufsan- 
gebote, Kauf- und Tauschgesuche, 
Kontaktaufnahme bzw. Erfahrungs- 
austausch usw. 


Ich wünsche folgenden Text zu veröffentlichen, mindestens 3 Zeilen: 


Preise für ”Kleinanzeigen”: 
Private Kleinanzeige je Druckzeile 
3,50 DM inkl. MwSt. Chiffregebühr 
je Anzeige 10,- DM. 


Gewerbliche Gelegenheitsanzeige 
je Druckzeile 7,50 DM inkl. MwSt. 
(dürfen nicht unter Chiffre er- 


scheinen). MERBEREEBERSBURZENENHERNKSARNE ER ENER 

K leinanz eig: en Zutreffendes ankreuzen 
Jetzt noch suche U] Software suche [] Hardware D Tausch D) Versch. 
preiswerter biete an [] Software biete an [] Hardware D Kontakte DI Chiffre 
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Mitmachen kann jeder mit Ausnahme der Mitarbeiter des Roeske-Verlages sowie deren Angehörigen. 
Auf die Gewinner warten auch diesmal tolle Spielprogramme für Commodore-Computer auf Bändern 
aus unserem Kassetten-Service. Wie üblich ist der Rechtsweg ausgeschlossen. Eifrige 
Schatzsucher und alle pfiffigen Code-Knacker schicken ihre Lösung (auf Postkarte) an den: 
ROESKE-VERLAG, Kennwort "CM-Rätsel”, Postfach 620, D-3440 Eschwege 


Die Gewinner aus Heft 40/84 Hier die Gewinner für je 1 Gutschein: 


H. Schachtner, 8000 München D. Franzke, 5047 Wesseling 
1. Preis A. Bracke, 8504 Stein A. Ford, 7014 Kornwestheim 
en ; M. Heid, 6729 Neupotz E. Empting, 4722 Ennigerloh 
A. Hörl, 8671 Weißenstadt J. Freisleben, 8481 Parkstein 0. Amblank, 6300 Gießen 
P. Wehrmann, 3501 Schauenburg G. Hübner, 6370 Oberursel 
2. Preis B. Böttcher, 2800 Bremen D. Fröhling, 8742 Bad Königshofen 
RLi her. 5090 J. Bötel, 2950 Leer W. Steinhausen, 5300 Bonn 
Liebscher, 5090 Leverkusen K. Dünisch, 8601 Kirchlauter K. Zerfaß, 6600 Saarbrücken 
A Th. Herzer, 1000 Berlin E. Paulußen, 5130 Geilenkirchen 24 a 
3. Preis Ch. Schäfer, 3000 Hannover U. Ege, 7930 Ehingen Des Rätsels Lösung lautete: 
V. Wolff, 6305 Buseck U. Krüger, 1000 Berlin W. Kick, 3100 Celle Zeichengenerator 
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Zum i 
Ugrej 
Ifen! 
V6-20 
VC1000 Gridder Superarcade (o. Erw) DM 29.00 
VC1023 Gridtrap Labyrinth (o. Erw.) DM 35.00 
VC1024 Rescue Weltraumaction (o. Erw.) DM 29.00 
VC1001 Space Attack Arcade (o. Erw.) ‘ DM 29.00 
VC1005 un per Arcade (o. Erw.) DM 2: Bücher 
VC1007 Moons of Jupiter (+8K) DM 29. 
VC1018 Line up4/Reversi(o.Erw) DM29.00 MM avonıE vic 0 Eu set .. 
VC1020 Getlost Labyrinth (0. Erw ) DM 29.00 BV9008 Spiele für Ihren VC-20 DM 14.80 
VC1025 Penny Slot (o. Erw.) DM 25.00 : ı 
VC1028 Power Blaster Arcade (o. Erw.) DM 29.00 
VC1040 Invaders Arcade (o. Erw.) DM 24.00 Commodore 64 
VC1003 Fluch des Pharao Adv. (+ 16K) DM 19.50 
VC1029 Pedes & Mutants Action (o. Erw.) DM 29.00 ah en Spaß n an 
a a EM ee CB2012 Star Trek Arcade Spiel DM 35.00 
ark Attack Action (o. Erw.) DM 32.00 CB2015 Zapny Zooks Arcade Spiel DM 29.00 
VC1011 Atom Smasher Arcade (o. Erw.) DM 32.00 Bios mer ns 2 ! pie Eu sus 
VC1034 Insector Arcade (o. Erw.) DM 32.00 Ro ee ei 
CB2029 Stellar Dodger Arcade Spiel DM 29.00 
CB2030 Jammin Arcade u. Musik DM 29.00 
CB2031 Jammin Diskette DM 35.00 
CB2032 Pipeline Arcade u. Spaß DM 29.00 
CB2033 Pipeline Diskette DM 35.00 
a En an Game ern (dm; 1ummmm Yanmmen mm ] CB2003 Gridder Superarcade Spiel DM 29.00 
WICOSOFT, Christian Widuch CB2005 Dickys Diamonds Arcade u. Spaß DM 35.00 
Nordstraße 22, 3443 Herleshausen | CB2007 Panic Arcade Spiel DM 29.00 
u CB2011 Frogger Arcade Spiel DM 29.00 
Bitte liefern Sie | CB2014 Exterminator Arcade Spiel DM 29.00 
© per Nachnahme (zzgl. Gebühren) CB2020 Galaxy Weltraum-Arcade DM 35.00 ° 
© per Vorkasse bzw. Scheck | CB2013 Multisound Synthesizer. DM 65.00 
| CB2021 Stix Weltraum-Arcade DM 45.00 
Anzahl Artikelbezeichnung Preis CB2024 Purple Turtles Arcade u. Spaß DM 35.00 
| 


NAME: wann are an energie ee | 


EA ‚Top +++ Stark reduzierte Preise 


